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USER DOCUMENT FOR COMPUTER PROGRAMS 


FOR RING- STIFFENED SHELLS OF REVOLUTION 
By Gerald A* Cohen 

Structures Research Associates, Laguna Beach, California 


SUMMARY 


This report presents user manuals and related program documentation 
for six compatible computer programs for structural analysis of axisym- 
metric shell structures. The theory and method upon which these programs 
are based are presented in a separate companion report. The programs are 
designated simply as the SRA programs. They apply to a common structural 
model but analyze different modes of structural response. They may be 
classified according to their function into three groups, designated here 
as the 100, 200, and 300-series. In particular, they are 

SRA 100 - Linear static response under asymmetric loads 
SRA 101 - Buckling of linear states under asymmetric loads 
SRA 200 - Nonlinear static response under axisymmetric loads 
SRA 201 - Buckling of nonlinear states under axisymmetric loads 
SRA 202 - Imperfection sensitivity of buckling modes under axisym- 
metric loads 

SRA 300 - Vibrations about nonlinear states under axisymmetric loads 

These programs treat branched shells of revolution with an arbitrary 
arrangement of a large number of open branches but with at most one closed 
branch. Current dimensioning allows for seven branch points, each of 
which may have as many as five branches emanating from it. Branches which 
close at the axis of revolution, i.e. dome closures, are not considered to 
be closed branches. A maximum of 23 dome closures or other shell edges is 
allowed. At each meridional station the shell wall may consist of as many 
as five ortho tropic layers, in each of which elastic properties may vary 
only in the meridional direction. At each material point the shell is 
assumed to possess orthotropic principal axes in meridional and circumfer- 
ential directions. All geometric and mechanical properties of the structure 
are assumed to be axisymmetric, but may have arbitrary meridional variation. 
A continuous reference surface, arbitrarily located within or near the 
shell wall is treated. The shell may be stiffened by: 

(1) up to 34 discrete isotropic rings I 



(2) stringers, whose stiffness is circumferentially distributed, and 

(3) an elastic foundation attached to the shell wall. 

The effects of thermal loads and live pressure fields are included. 

The programs have been written in CDC FORTRAN 2.0 language to run on 
CDC 6000 series computers under the SCOPE 3.0 operating system. Two of the 
programs, SRA 101 and SRA 202, utilize the OVERLAY capability of the SCOPE 
3.0 loader. Approximate core field length (octal) requirements are given 
in the table below. 


Program 

Load 

Execute 

SEA 100 

75 000 

75 000 

SRA 101 

113 000 

103 000 

SEA 200 

67 000 

67 000 

SRA 201 

101 000 

101 000 

SEA 202 

75 000 

62 000 

SRA 300 

101 000 

101 000 


INTRODUCTION 



There are at least four major commonly available systems of computer 
programs for the analysis of shells of revolution (ref. 1). In addition 
to the SRA programs presented here, these include two finite-difference 
programs - BOSOR (developed by Bushnell at Lockheed) and SALORS (developed 
at the NASA Langley Research Center) - and Kalnins 1 programs (developed 
for the Air Force Flight Dynamics Laboratory). As are Kalnins 1 programs, 
the SKA programs are based on the technique of forward integration; 
however, the present system employs the Zarghamee method, which for open 
branch problems reduces the number of complementary solutions required by 
a factor of 2 (ref. 2). All of these systems treat the standard problems 
of stress, buckling, and vibrations under axisymmetric loading. The main 
features of the SRA system which have not been generally available in the 
other systems are: 

(1) buckling analysis under general asymmetric loads 

(2) imperfection sensitivity analysis 

(3) branched shell capability (fig. 1) 

The main body of this report consists of user manuals for each of 
the six SRA programs. The basic program SRA 100, giving the linear static 
response to asymmetric loads, is described first and in complete detail. 
Only those operational aspects of the remaining programs which change 
from that given for SRA 100 are presented. Additional program information, 
consisting of overall logical flow charts, subroutine descriptions, 
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definition of major FORTRAN variables, and description of nonstandard 
files, is presented in Appendix A. 

The assistance of Raphael T. Haftka, who organized and did most of 
the progra mm ing for SRA 101, is gratefully acknowledged. 


SYMBOLS 


A 

a 


b 

E 

E 1 > E 2> E 12 


e l , e 2 

F ,F ,F 
x y <|> 

F 1> F 2> E 3> F 4 
FDi ,FD3q 

FD 31 , FD 4 


FL 1 ,FL 2 ,FL 3 ,FL 4 


ring or stringer cross-sectional area 
ring centroidal radius 
second postbuckling coefficient 
ting or stringer elastic modulus 


orthotropic elastic moduli 


axial and radial eccentricities of ring centroid 
relative to corresponding point of subdivision 
on shell reference surface 

-shell linearized strains 

externally applied ring forces 


equivalent shell forces 


equivalent dome forces (first and third 
component of {L} for n = 0) 

equivalent dome forces (third and fourth 
component of {L} for n = 1) 

components of {L} 


G ring or stringer shear modulus 

h wall layer half-thickness 

I stringer section moment of inertia about 

circumferential centroidal axis 


I ,1 ,1 

x* y 9 xy 


ring section moments of inertia about centroidal 
axes 
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J 


K 

K* 


ki,k 2 ,k 3 
L 1 > l 2 
Mi,M 2 
M 

y 

N 


N »N ,N , 

* y ♦ 


P,Q,S 


R 2 


torsion constant of ring or stringer section 

structural stiffness 

initial postbuckling stiffness 

foundation moduli 

surface moments 

meridional and circumferential stress couples 

ring out-of-plane bending moment 

number of stringers; also convergence index 

externally applied ring moments 

circumferential harmonic number 

effective shell forces per unit circumferential 
length in axial, radial, and circumferential 
directions , respectively 

circumferential radius of curvature 


r 


small circle radius 


s,<J>;z meridional, circumferential, and normal 

coordinates of shell reference surface 

s meridional eccentricity of ring centroid from 

corresponding subdivision point 

shell stress resultants 

ring hoop force 

meridional, circumferential, and normal shell 
displacements 

u x J U y> u ^ ring displacements 

w ,w ring rotations 

x y ° 

Xi,X 2 ,X 3 surface loads 


Ti,T 2 , T i2 

T <f> 

u,v,w 


X 3 ,X 3 
°x °y 


axial and radial derivatives of the unit load 
pressure field (3X 3 /8x and 3X 3 /8y) 



axial and radial coordinates, respectively 


z ring or stringer normal centroidal eccentricity 

from shell inner surface 

z normal distance of reference surface from shell 

inner surface 


a,g first and second imperfection functionals 

A0i , A 02 differences through wall layer of orthotropic 

free thermal strain amplitudes 

£\ ,£2 shell stretching strains 


01 , 0 2 

0 

r 


0 


st 


K 


Ki,K2 


A 

A 0 


*1 


A 

c 


A 


s 


Mi 

M2 


ring hoop strain 

orthotropic wall layer mean free thermal strain 
amplitudes 

ring free thermal strain 

stringer free thermal strain amplitude 

scaling factor for axisymmetric bending 
prebuckling component (SRA 101) 

shell bending strains 

ring out-of-plane bending strain 

load factor 

load factor for nonlinear prebuckling state 

eigenvalue obtained by SRA 10.1; also critical 
load estimate (Aq + y s + Pi) obtained by SRA 201 

critical load 

eigenvalue shift for SRA 101; also buckling 
load of imperfect structure 

eigenvalue obtained by SRA 201 or SRA 300 

eigenvalue which controls convergence to 
Ui by SRA 201 or SRA 300 
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nw 

P s 

Vl,V 2 

?/n,v 




sequence of eigenvalue estimates obtained by 
SRA 201 or SRA 300 

eigenvalue shift for SRA 201 or SRA 300 

Poisson contraction ratios with meridional or 
circumferential stress acting, respectively 

shell displacements in axial, radial, and 
circumferential directions, respectively 

root-mean-square angular imperfection amplitude 

ring mass density 

mass densities of wall layers (subscript 
indicates layer number, 1 < i < 5) 

shell in-surface stresses 

shell transverse shear stresses 

stringer centroidal stress 

shell rotations about circumferential, 
meridional, and normal directions, respectively 

vibration frequency 


Matrices : 
IB], ID] 

fc},{d} 
{G},{ J} 

{L} 

[p]» [£l» {q) 
[u],m 

[V],[Z] 


4x4 boundary condition matrices 

4x1 matrices of superposition constants 

4x1 submatrices of particular solution vector 



4x1 boundary force matrix 

matrices relating {c} and {d} of last sub- 
interval on a closed branch to that of the 
first subinterval; [p] and [p] are 4x4 
matrices, and {q} is a 4x1 matrix 

4x4 submatrices of complementary solution 

vectors u] 

¥J 

4x4 submatrices of additional complementary 
solution vectors ^ , used only on a closed 

branch L J 
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{y} 

4x1 shell force matrix {P,Q,S,M i } 

{z} 

4x1 shell displacement matrix {5>n,v,xJ 

Generalized field 

variables : 

e 

strain 

0 

stress 

Subscripts : 


0 

prebuckling state variable (at the load 
level Xq , unless otherwise specified) 

1,2,3 

meridional, circumferential, and normal 
components, respectively (same as s,<j),z) 

o( ) 

variable of the axisymmetric component of 
second-order postbuckling state 

i( ) 

buckling mode variable 

2< ) 

variable of the nonsymmetric component of 
second-order postbuckling state 

Superscripts : 


( >' 

3( ) /3s 

( )• 

3( ) /34> 

< > (k) 

3 k ( ) / 3X k 

Matrix superscripts: 

T 

transpose 

Generalized field 

variable subscripts: 

0 

prebuckling state variable (evaluated at Xq 
if not otherwise indicated) 

1 

buckling mode variable 

2 

second-order postbuckling state variable 
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Generalized field variable superscripts: 

( )* evaluated at the critical load 


SRA 100 


SRA. 100 computes the linear stress and displacement response under 
asymmetric loads. Mechanical loads and free thermal strains (thermal 
loads) are assumed to have harmonic circumferential variation so that 
only their amplitudes are input. This is sufficient to treat general 
asymmetric loads, which may be written as a Fourier series in the circum- 
ferential coordinate. Each of the two components (symmetric and 
antisymmetric) of load harmonics of any order* are treated individually 
by SEA 100. Since the circumferential variation of the response is also 
harmonic, only the amplitudes of the response variables are output. 


Input Data 

The input data consists essentially of: (1) a case title card and a 

case option card, (2) input tables giving basic structural data as a 
faction of meridional distance, (3) discrete ring data, and (4) general 
boundary condition matrices. Each of these types of input are described 
further below. 

Case title and option cards .- The first card of each case is a title 
card, on which any short description of the problems may be punched in 
standard alphanumeric symbols in the first 72 columns. The second card of 
each case is a case option card (fig. 2). The purpose of this card is to 
convey to the computer program the following information: 

(1) if shell contains a closed branch, 

(2) which tables of data are to be input for the present case, and 
which, in a sequence of problems, are to be taken from the 
preceding case, 

(3) if all boundary data is to be taken from preceding case 

(4) harmonic number 

(5) the existence of rigid body degrees of freedom, 

(6) surface on which the externally applied tangential surface loads 
act. 


*Current format of the case option card limits symmetric components to 
harmonics n < 999, and antisymmetric components to harmonics n < 99. 



(7) relative error tolerance for forward integration routine, 

(8) if punched card output is desired, and 

(9) whether or not to abort run if programmed subinterval length 
criterion is exceeded. 

The format for the case option card is as follows: 


Column 

4 

blank: 

open branched shell 



1 : 

closed branched shell 

Column 

6 

blank : 

geometry (table 1) taken from preceding 




case 



1 : 

new geometry to be input 

Column 

8 

blank : 

wall properties (table 2) taken from pre- 
ceding case 



1 : 

new wall properties to be input 

Column 

10 

blank: 

foundation moduli (table 3) taken from 
preceding case 



1 : 

new foundation moduli to be input 

Column 

12 

blank: 

stringer properties (table 4) taken from 
preceding case 



1 : 

new stringer properties to be input 

Column 

14 

blank: 

mass densities (table 5) taken from pre- 
ceding case 




new mass densities to be input 

Column 

16 

blank: 

mechanical loads (table 6) taken from pre- 
ceding case 



1 : 

new mechanical loads to be input 

Column 

18 

blank: 

thermal loads (table 7) taken from preceding 




case 



1 ; 

new thermal loads to be input 

Column 

20 

blank: 

all boundary data taken from preceding case 
(col. 5 of table 1 does not apply) 



1 : 

col. 5 of table 1 controls input or genera- 


tion of boundary conditions 
2 : same as 1, except that only load vectors 

change from previous case 

Columns 21-23 harmonic number, right adjusted integer 
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Column 30 


This column and table 5 are used only when n = 0 
or 1 . 

blank: no rigid body degrees of freedom 

1 : translational rigid body degree of freedom 

exists (axial translation for n = 0, and 
lateral translation for n *» 1) 

2 : rotational rigid body degree of freedom 

exists (rolling rotation for n = 0, and 
pitching rotation for n = 1) 

3 : translational and rotational rigid body 

degrees of freedom exist 

Column 34 blank: tangential surface loads and (table 6) 

act at reference surface 
1 : X^ and act at outer surface* 

Columns 48-59 relative error tolerance (E12.4) for variable step 
Runge-Kutta forward integration subroutine 

Column 73 blank: no effect 

1 : prebuckling data (T, ,1- ,T„,T 19 ,X„) put 

on punch f xle 

Column 74 blank: no effect 

1 : stresses (a g , a^, a g ^) put on punch file 

Column 78 blank: abort run if subinterval length criterion 

is exceeded 

1 : print diagnostic but continue execution if 

subinterval length criterion is exceeded 

Columns 6 through 20: If one (or more) of the tables 3 through 7 

does not apply in a particular case, the indicator 1 is used for that 
table and no data for that table is included in the corresponding 
case data deck. Data for that table will then automatically be set to 
zero. Tables 1 and 2 are always input for a single case or for the 
first case of a sequence of problems. A 2 in column 20 indicates that 
although the boundary loads may change from the preceding case, the 
attached structure (e.g., a ring) is unchanged. It is thus analogous 
to blanks in columns 6, 8, 10, and 12, which indicate that the other 
components of the structure are unchanged. If the total structure and 
the harmonic number are unchanged from the preceding case, i.e., only 
the loading changed, the program will use the complementary solutions from 
the preceding case, thereby reducing execution time. A means for taking 
individual boundary conditions from the previous case is provided by 
column 5 of the geometry table cards (see p. 19). 

*The shell outer surface is defined as the shell face at which the posi- 
tive z-direction points out of the shell wall (see discussion of 
geometry, page 12). 
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Columns 21-23: Each harmonic loading and response contains a 

symmetric and antisymmetric component with respect to a reference axial 
plane, say <j> - 0. Here, a response (or loading) is defined as being 
"symmetric" or "ant isymme trie" according to whether the associated normal 
deflection (or pressure) is an even or odd function of ^ (table I)..*-* 
Usually the loading and response are assumed to be symmetric with 
respect to the reference plane <j> «* 0. However, if the harmonic number is 
input as a negative integer, instead of a positive one, the load 
components will be taken to be antisymmetric, and consequently the anti- 
symmetric response will be output. For the case n *= 0, the symmetric 
(bending) and ant isymme trie (torsion) components are uncoupled and are 
obtained simultaneously. 

Columns 48-59: A relative error tolerance of 0.01 is usually 

adequate (and in some cases 0.1 is adequate), although if columns 48-59 
are left blank, the value 0.001 will be used. It is, of course, waste- 
ful to use an error tolerance smaller than necessary since computer 
execution time will be increased with no important gain in accuracy. 

Input tables .- Seven different tables may be input. These tables are 
listed below with the input parameters in parenthesis. Each of these 
variables is input in E12.4 format (fig. 3). Each card of each of these 
tables prescribes data at one point of the shell meridian. 

TABLE 

1 Geometry (s, r, r 1 , r/R 2 , z) 

2 Wall Properties (Ej , E 2 , Ei 2 , Vi, h) 

3 Foundation Moduli (kj, k 2 , k 3 ) 

4 Stringer Properties (E, NEA, NEI, NGJ, z) 

5 Mass Densities (p ls p 2 , p 3 , P4, P5) 

6 Mechanical Loads (Xj , X 2 , X3) 

7 Thermal Loads (9i, 0 2 , A0*, A0 2 , 0 ) 

Sv 

Tables 1 and 2 are required (i.e. , input or taken from the preceding case) 
for each problem. Table 5 is required for structures having rigid body 
degrees of freedom. Tables 3, 4, 6, and 7 are input only if applicable. 

Immediately following the input tables, which are discussed more be- 
low, there should be a card with a 9 punched in column 1 but otherwise 
blank. This "nine" card separates the input tables from the boundary 

* 

This symmetry with respect to an axial plane (i.e. , one containing the 
axis of revolution) should not be confused with symmetry with respect to 
the axis of revolution itself, or with respect to a plane normal to the 
axis. 
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data, which immediately follow the "nine" card. It is required for each 
case , even though in a sequence of cases there may be no tables or boundary 
data input . 

Geometry: In order to describe the shell geometry, a continuous 

reference surface is used. Ordinarily, the reference surface is taken as 
the shell wall middle surface. However, in some cases this may be incon- 
venient or impossible. For example, if the shell wall has a thickness 
discontinuity, the middle surface may not be continuous. In general, the 
reference surface may be any convenient surface within or near the physi- 
cal shell wall (fig. 1, also see further discussion below). 

In order to define the geometry of the reference surface, a coordi- 
nate system must be established. A right-handed (s, cf>, z) coordinate 
system is used, where s measures meridional arc distance from an arbitrary 
reference point (e.g., a shell edge), <f> measures circumferential angle from 
an arbitrary reference meridian, and z measures normal distance from the 
reference surface. The sense of coordinate directions is immaterial as 
long as they form a right-handed triad. In the following discussion the 
shell inner surface will mean the shell surface where the positive 
z-direction points into the interior of the shell wall. 

Each card of this table gives the values of s (columns 13-24) , r 
(columns 25-36), r f (columns 37-48), r/R 2 (columns 49-60), and z (columns 
61-72) at one point of the reference surface meridian. As shown in the 
diagram, r is the (minimum) distance to the axis of revolution, and R 2 is 
numerically equal to the distance along a surface normal measured to the 
axis of revolution; furthermore, r f = sin y and r/R 2 m cos y. By conven- 
tion, r is always positive, but R^ is positive only if the positive^ 
z-direction points away from the axis of revolution. In addition, z is the 



normal distance of the reference surface measure from the shell inner sur- 
face. It is positive if the reference surface is displaced from the shell 
wall inner surface in the positive z-direction. If, for example, columns 
61-72 of table 1 are left blank, the inner surface will be used as the 


12 



reference surface. For axisyrametric loading of cylinders and cones it 
can be shown that changing the postion of the reference surface by a 
uniform amount without changing its other geometrical data will have no 
effect on the numerical values of stress and rotation. The displacements 
of, and the bending moment about, the reference surface change however, 
and it is necessary to account for this when setting up boundary conditions.. 
For more general shells, harmonic loading, or nonuniform reference surface 
translation, changing the reference surface will produce small changes of 
the order A£/-R in the solution, where Az is the reference surface shift 
and R is a radius of curvature. As long as Az is of the order of the shell 
thickness or less, this change in the solution is like the error in thin 
shell theory itself, and therefore insignificant. The essential point to 
remember in setting up the reference surface is that it should be a con- 
tinuous surface within or near the shell wall. 


Two consecutive cards in table 1 with the same value of s define a 
point of subdivision of the shell meridian. The first card prescribes 
data immediately before the subdivision point and the second card pre- 
scribes data immediately after the subdivision point. Thirty-two such 
points are allowed. A subdivision point is required at the location of: 


(1) a branch point , 

(2) an interior ring or other elastic attachment, 

(3) a circumferential line load, 

(4) a meridional discontinuity in input data (e.g. , the juncture of 
a cone and a cylinder or a change in the number of wall layers), 
and 

(5) a fictitious boundary inserted to limit subinterval length. 


Fictitious boundaries should be inserted according to the rule-of-thumb 
ML < 3(rt) 1/2 


where hi is the axial subinterval length, and r and t are average values 
of the radius and thickness over the sub interval considered.* This re- 
quirement is necessary to control numerical round-off error. If a sub- 
interval is too long, the problem will be aborted (if col. 78 of the case 
option card is blank) and an appropriate diagnostic printed. 

In addition to the basic geometrical data, supplemental data is 
input on the geometry cards in columns 1, 3, 5, 6, and 10-12. Columns 1 
and 10-12 have a similar function for each of the tables. Column 1 is 


* 1 / 9 

It .is often easier to use the alternate criterion As < 3(R2t) 7 , For 
orthotropic layered shells these criteria may be applied with t replaced 
by (12D where D is the meridional bending stiffness and C is 

the hoop stretching stiffness. ^ 
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is used primarily for table identification. The first card of each table 
should have the table number in column 1* Thus, the first card of the 
geometry table should have a 1 in column 1. Each card of table 1 (and of 
the other tables) must have an entry number (5100) right adjusted in 
columns 10-12. The entry number starts at 1 at the initial shell boundary 
and increases by whole number amounts on each succeeding card. If for two 
consecutive cards of table 1, the entry number increases by more than 
unity, s, r, r f , r/R^, and z are automatically generated for the inter- 
vening entry numbers by linear interpolation with respect to the entry 
number. This process of interpolation may be suppressed by repeating the 
table number in column 1 on the second card, thus allowing isolated entries 
to be made on succeeding problems. The entry number also serves to relate 
data between different tables to the same meridional point. 

Each sub interval should have at least one interior point, i.e. , the 
entry numbers of the initial and final point of each subinterval should 
differ by at least 2. Also, interior points within each subinterval should 
have equal s-spacing, although the spacing may be different for different 
subintervals. Note that in table 1 only interior points of each subinter- 
val can be interpolated points, since a point of subdivision is defined by 
inputting two cards for it. The actual number of cards input for table 1 
is therefore determined by the number of subdivision points and the degree 
of variation of the functions r, r f , r/R 2 and z in each sub interval. For 
example, for a cone only two geometry cards are required if no points of 
subdivision are necessary. However, in order to describe the response 
f untions (and possibly input functions of other tables) accurately, many 
more than two points are required. This is easily accomplished by using 
an appropriate entry number for the second card. 

Columns 3 and 5 of the geometry cards pertain to boundary conditions 
and are discussed under that heading. Column 6 is used only for branched 
shells, which are discussed below. 

In setting up the geometry table for branched shells, it is usually 
convenient to think of a main branch or trunk of the shell meridian. This 
is defined as a continuous line consisting of segments of the shell 
reference meridian containing both the initial point (entry number 1) and 
the terminal point (having the maximum entry number) . In the case of a 
shell with no closed branch , the trunk will begin at some arbitrary shell 
edge and terminate at some other arbitrary edge. However, if the 
meridian contains a closed branch (i.e., a loop), it is necessary that the 
trunk consist solely of the loop. In this case, the trunk will begin at 
some arbitrary non-branching point on the loop, and will terminate at the 
same point. 

It is necessary that each branch point be a point of subdivision. 

Only one branch can exit a branch point, i.e., have increasing s-values 
and entry numbers away from the branch point. All other branches inter- 
secting at a branch point (of which there can be at most four) must enter 
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the branch point, i.e. , on these branches s-values and entry numbers 
should increase towards the branch point* In setting up the shell 
meridian, when a branch point is encountered, it is necessary to describe 
all branches entering the branch point before continuing with the branch 
exiting the branch point. Thus, if an entry represents the final point of 
a subinterval terminating at a branch point and there remain undescribed 
as yet more branches entering the branch point, the next entry will be an 
edge of one of these branches. These two cards should have consecutive 
entry numbers and the same value of s, just as an ordinary point of 
subdivision, even though they represent different points on the meridian. 
On the other hand, if an entry represents the final point of a sub interval 
terminating at a branch point, and all other branches entering the branch 
point have been described, the next entry is the initial point of the 
branch exiting the branch point. Again, these two cards should have 
consecutive entry numbers and the same values of s and r, as, in fact, in 
this case an ordinary point of subdivision is being described. In either 
case, if an entry represents the final point of a subinterval terminating 
at a branch point, it is necessary to punch in column 6 of that card the 
corresponding branch point number (^7) » which should be preassigned by the 
user in any convenient way. 

Wall properties: This table is composed of separate sub tables, one 

for each layer. Each card corresponds to one value of s for one layer and 
gives the value of 


E-x (columns 13-24) 
'Eg (columns 25-36) 
Ex 2 (columns 37-48) 
vx (columns 49-60) 

h (columns 61-72) 


meridional modulus of elasticity 
circumferential modulus of elasticity 
shear modulus 

Poisson’s contraction ratio with meridional 

stress acting 

layer half- thickness 


In addition to the table number 2 in column 1 for the very first card 
of the wall layer tables, the first card of each subtable should have the 
layer number in column 7. If the layer number is inadvertently omitted 
from the first layer subtable input for tables 2 and 7, the default layer 
number 1 will be used. However, additional layer sub tables must have a 
layer number. Wall layers are numbered in the direction of increasing z 
starting with unity for the layer at the shell inner surface. It should 
be noted that the layer numbering is done locally, so that a given 
continuous physical layer may have a different layer number at different 
locations on the meridian. However, since the number of layers can only 
change at a sub interval boundary, layer numbering is unique in each 
subinterval. 


In the case of layer sub tables of table 2, and also tables 3-7, if 
for two consecutive cards" the entry number increases by more than unity, 
data for the intervening entry numbers are automatically generated by 
linear interpolation with respect to the s-values corresponding to the 
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intervening entry numbers. For this purpose, it is necessary that table 
1, which contains the s-values , be input first. As with table 1, the 
interpolation may be suppressed by repeating on the second card the table 
number in column 1 or, in the case of tables 2 and 7, the wall layer number 
in column 7. This would be done, for example, at the first entry of the 
second portion of a disjointed layer. Note that in contrast to table 1, 
data cards for tables 2-7 corresponding to interior points of sub- 
division may not be necessary. 

Foundation moduli: It is assumed that an elastic foundation produces 

force components per unit area on the shell in s, , an ^ z directions 
which are proportional and opposite to the local displacement components 
in s, <|>, and z directions, respectively. The constants of proportionality 
(foundation moduli) for s, <j>, and z directions, denoted by ki (columns 
13-24) , k 2 (columns 25-36), and k 3 (columns 37-48) , respectively, are input 
on one card for each value of s. The tangential forces associated with 
k'i and k 2 also produce small surface moments by virtue of the assumption 
that they act at the shell inner surface. 

Stringer properties: Stringers are treated by circumferentially 

"smearing-out" their stiffness. In so doing, it is assumed that at each 
meridional station the stringers are equally spaced around the shell 
circumference. For this approximation to be accurate it is necessary to 
have several (more than 2) stringers for each circumferential wave of 
the response. Each card of this table contains the following stringer 
section properties at one point of the shell meridion: 

E (columns 13-24) elastic modulus 

NEA (columns 25-36) total extensional stiffness of all stringers 

NEI (columns 37-48) total normal bending stiffness of all stringers 

(I taken about circumferential centroidal axis) 
NGJ (columns 49-60) total torsional stiffness of all stringers 
z (columns 61-72) normal eccentricity of the stringer centroid 

measured from the shell inner surface, positive 
in the direction of the positive z-axis. 

Mass densities: Although SRA 100 is essentially a shell statics 

program, the quasi-static problem of a shell structure accelerating in a 
rigid body mode can be treated automatically.* This is accomplished by 
specifying the type of rigid body freedom in column 30 of the case option 
card and inputting mass densities for the shell and rings. The program 
will then automatically generate the distributed inertial forces which 
equilibrate the applied loads. The static response of the resulting 
self-equilib rating system of forces is then obtained. Even though the 
structure lacks in this case rigid body constraint, it is still 
necessary to specify artifically the missing constraint (see page 23). 


*Note that rigid body degrees of freedom exist only for n = 0 or 1. 


16 



This will not affect the solution, however, since the resulting reaction 
will be essentially zero. 

Each card of this table represents the shell wall layer mass 
densities (p^, i < 5 ) in the order of increasing layer number i for a 
point of the shell meridian (fig. 2) . 

The mass of stringers can be accounted for by the use of a fictitious 
layer with zero stiffness but with the same mass (generally, a different 
mass density) and a half-thickness equal to the centroidal eccentricity of 
the stringer cross section relative to the nearest shell face. The mass 
density of rings are input with other ring data (see p. 21). 

Mechanical loads: Harmonic amplitudes Xi , X2, X3 of applied surface 

force components per unit area in s, <j>, and z-directions, respectively, 
are input in table 6. The corresponding symmetric force components are 
Xicos n<|>, X2sin n<f>, and X3COS ncf>, whereas the corresponding antisymmetric 
force components are Xisin n<|) , X2C0S n(j>, and X3 sin n<J>. The tangential 
components Xi and X2 may be specified to act either at the shell reference 
surface or the shell outer surface by use of column 34 of the case option 
card. When applied at the shell outer surface, the small moments they 
produce about the reference surface are automatically accounted for. 

Mechanical loads acting on rings and other line loads are input with 
other boundary data (see p. 21) . 

Thermal loads (free thermal strains) : For each layer, the averages 

01, 02 and differences A0i , A02 of free thermal strain harmonic amplitudes 
in s, <|> -directions, respectively, are required. Thus, if the superscript 
■(+) means evaluated at the layer face with positive z-direction pointing 
out of that layer and the superscript (-) means evaluated at the layer 
face with positive z-direction pointing into that layer, then 

0! = (e g + + e s ")/2 

0 2 " ( 8 + + + 0 ^")/2 

The free thermal strains 

respectively, where t is the local temperature, t a reference temperature, 
and a g and 0^ the thermal coefficients of expansion in s and <|) directions. 

01, 02, A0i, and A0 2 are input for each layer just as the wall layer 
properties of table 2 , and the use of column 7 of the input cards for this 
table is the same as for table 2. 

Also input along with the first layer free thermal strains is the 

harmonic amplitude 0 of the stringers. The stringer free thermal strain 

s t 


• “1 - - o s 

• “2 - 8/ - 6*' 

0 g and 0 a are defined as a dt and a dt 

■' + to S t A (p 
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is assumed to be uniform over a cross section of each stringer but may 
vary from stringer to stringer. The equivalent circumferential distribu- 
tion for the discrete stringers can then be formed by assuming that the 
value of the free thermal strain for each stringer applies over the 
circumferential arc centered at the stringer and extending on either side 
to the midpoint of the interval formed by that stringer and the adjacent 
stringer. Thus, each card corresponding to wall layer 1 contains the 
following data for a point of the shell meridian: 0i (columns 13-24) , ©2 
(columns 25-36) , A©i (columns 37-48), A02 (columns 49-60) , and 0 Qt 
(columns 61-72). The remaining layers are treated the same way except 
that columns 61-72 are left blank. 

All symmetrical free thermal strain components vary circumferentially 
as cos n<f>, whereas antisymmetrical components vary as sin n<fu Free 
thermal strain amplitudes of rings are input along with other ring data 
(see p. 21) . 

Boundary conditions .- The boundaries of the shell are defined as all 
shell edges plus all interior subdivision points. For the purpose of 
discussion, the closure point of a closed branch although not specified 
in the same manner as other interior boundaries is classified here as 
an interior boundary. As discussed previously, the boundaries other than 
the initial and final entry are specified in the geometry table by 
repeating the same value of s on two consecutive cards. A set of boundary 
conditions must be determined for each boundary. In general, each set of 
boundary conditions is expressed by four equations relating four basic 
force variables to four corresponding displacement variables. In matrix 
notation, these four equations may be written as [B]A{y> + [D]{z> = {L}, 
where {y} is the column force vector (P, Q, S, Mi), and {z} is the column 
displacement vector (£, ty, v, x) * At an interior boundary, A{y} repre- 
sents the change in {y } across the boundary,* i.e. , A{y} is the value of 
{y} on the exiting branch minus the sum of the values of {y} on all 
entering branches. At all edges other than a terminal edge (i.e. , the 
final entry), A{y} denotes simply {y}, whereas at. a terminal, edge A{y} 
denotes -{y}. Four types of boundaries are treated, and for three of 
these (force-free, rings , and dome closures) , the 4x4 matrices [B] and 
[D] , and the vector {L} are automatically generated by the program. 

The fourth type of boundary is a more general type, for which the [B], 

ID] , and (L) matrices themselves may be input. 

For the purpose of defining the sign convention of the above forces 
and displacements, it is convenient to define positive axial (x) and 
radial (y) directions as follows (see diagram) . 


*The continuity of the displacement vector {z} at an interior boundary 
is automatically enforced by the program. 
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The positive x-direction is acute to the positive (negative) s-direction 
if the positive z-direction points away from (towards) the axis of 
revolution. The positive y-direction always points radially away from 
the axis of revolution. Then, £, n, v are positive if in the positive 
x, y, 4> directions; and x is positive if its vector points in the positive 
^-direction. The forces P, Q, S and moment Mi acting on a normal section 
with outward normal pointing in the positive s-direction, have the same 
positive directions as the corresponding displacements. 


The boundary type is specified by an indicator in column 5 of the 
geometry table cards, This column applies only at the initial entry of 
each subinterval and the final point of the meridian. Thus, for example, 
the boundary type of a branch point is specified in column 5 of the first 
entry of the subinterval exiting the branch point, and the boundary type 
of the edge of a branch entering a branch point is specified in column 5 
of the first entry of the first subinterval of the branch. In the case 
of a closed loop, the boundary type of the closure point (corresponding to 
the first and last point of the meridian) is specified in column 5 of the 
final entry card of the geometry table. In this case, column 5 of the 
first entry, although read, is not used. The code for column 5 is given 
below. 


Column 5 (table 1) Type of boundary 


Input data required 


blank 

1 

2 

3 

4 


force-free (A{y) = 0) 

none 


ring 

ring 

data 

prescribed [B], [D] , and {L} 

[B], 

[D], {L} 

boundary data taken 
from previous case 

none 


dome closure 

none 
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Although the column 5 indicator is input on cards of table 1, it should 
be thought of as a separate table within the computer. In a sequence of 
cases, in order to change the type of a boundary, it is necessary to 
re-input the complete geometry card corresponding to that boundary, 
repeating all the geometrical data. As an example, if three cases of 
three different loadings of the same ring-stiffened structure are to be 
run in succession, it would be desirable not to have to re-input the ring 
data for the second and third cases. This can be accomplished simply by 
leaving column 20 of the case option card blank. But if, instead, the 
properties of one (or more) ring varies from case to case, a 1 would be 
required in column 20. The data for the unchanged rings still does not 
have to be re- input if for the second case the geometry cards corresponding 
to those ring boundaries are re- input, each with a 3 in column 5.* Each 
of these cards should also have a 1 in column 1 to suppress interpolation 
at the intervening entries (which would cause erroneous geometrical 
data to be generated). For succeeding cases after the second, it is not 
necessary to input a 3 in column 5 for unchanged rings and hence for these 
cases no geometry cards should be input . In general , the code 3 in 
column 5 should only be used if the previous case contains a 1 or 2 in 
column 5 for the corresponding boundary. 

If the shell has a dome closure, the geometrical data is input only 
up to an artificial edge of small radius. A 4 is then inserted in column 
5 of the geometry table card corresponding to this boundary. This causes 
boundary conditions to be generated which represent the effect of the 
small deleted cap. Since these boundary conditions are correct only to 
first-order in the radius of the artificial edge, it is necessary that 
this edge be suitably small. It is found that good accuracy is obtained 
if at this edge r/R .2 < 0.05. For a plate, this conditon may be 
replaced by t/tq < 0.05, where ro is the outer radius of the plate. It 
should be noted that the edge radius r cannot be decreased arbitrarily 
since execution time increases without bound as r + 0. 

For SRA 100 the only use of column 3 of the geometry table pertains to 
shell structures which have a plane (normal to the axis of revolution) 
of symmetry about which the loading is also symmetrical or antisymmetrical. 


*Since in this case the geometrical data is not being changed, column 6 
of the case option card should be left blank. A 3 in column 5 simply 
changes the sign of corresponding value in the stored column 5 table, and 
the so-formed negative value causes the boundary data to be taken from 
the previous case. 
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In this context, a symmetrical loading is one for which X 2 , X 3 , and the 
free thermal strains are even functions of s and Xi is an odd function of 
s when s is measured from the plane of symmetry. The reverse is true for 
ah antisymmetrical loading. In either case it is only necessary to model 
one half of the shell, thereby reducing the computer execution time and 
allowing more computer storage for the remaining half.* Note that the plane 
of symmetry ; can correspond to one or more shell edges. If, in addition, a 
ring (of symmetrical cross section) is attached at the plane of symmetry, 
the problem can be run simply by inputting the actual ring data (see below) 
and inserting an 8 in column 3 (along with the required 1 in column 5 ) for 
the corresponding card of the geometry table in the case of symmetrical 
loading, or a 9 in column 3 in the case of antisymmetrical loading. For 
the purposes of satisfying certain boundary condition restrictions in 
the cases n = 0 or 1 (see p. 23), it should be noted that kinematic 
constraints are imposed at a symmetry edge, viz. 5 - x = 0 in the case of 
a symmetrical loading, and q - v = 0 in the case of an antisymmetrical 
loading. 


Immediately following the input tables there should be a card with a 
9 punched in column 1. Boundary data for boundary types 1 and 2 follows 
this card. This consists of ring data and [B], [D], {L} cards, which are 
input for each boundary in the order in which the boundary type is 
specified in column 5 of the geometry table. Note that if it is necessary 
to input boundary data for a branch point, this data will be read after the 
boundary data for boundaries on all branches entering the branch point. 


Ring data: Ring reactions are assumed to enter the shell at the 

corresponding point of subdivision. For each ring, the ring data is input 
on three cards in the format 6E12.4 (fig. 4). The first card consists of 


the following section properties: 


EA, El , 
x 


El 


El , GJ, z. The second 
xy 9 * 


card contains the harmonic amplitudes of the mechanical line forces F x> 


F , 

y 


F^, and moments N x , N^, N^ , all per unit length, applied at the ring 

centroid. The third card contains the meridional ring eccentricity s, the 
ring mass density p, elastic modulus E, and the harmonic amplitude of the 
ring free thermal strain 0 r * Here E and G are normal and shear elastic 
moduli of the ring (assumed homogeneous and isotropic) , A is the ring 

I , and I are the moments and product of 


cross-sectional area, I , 

. x 


xy 


inertia about the axial and radial centroidal axes (see p . 19 ) , J is the 
torsion constant, and s and z are the coordinates of the ring centroid with 
respect to local s, z axes with origin at the intersection of a normal 
shell element through the point of subdivision and the shell inner surface 
(see diagram) . 


*If the purpose of the run is to prepare prebuckling data for SRA 101, then 
the full shell should be modeled in the case of antysimmetrical loading. 

In this case, the buckling mode is neither symmetrical nor antisymmetrical 
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The properties p and E are required only for the internal generation of 
inertial loads in the case of an accelerating structure (i.e. , when 
column 30 of the case option card is not blank) . The free thermal strain 
is assumed to be uniform over each cross section of the ring. The 


circumferential variation of the symmetrical (antisymmerrical) ring load 

F , N, , 0 and sin n$ (cos n4>) for 
y <f> r 


components is cos n<f> (sin n<f>) for F , 

F., N , N . X 

x* y 


0 r 


Prescribed [B], [D] , and {L} matrices: If it is desired to input the 

boundary condition [B] A{y } + [D]{z} = {L}» corresponding to a 2 in column 
5 of the appropriate geometry card, this can be accomplished by inputting 
the [B] , [D] , and {L} matrices. For example, a clamped edge corresponds 
to [B] = [0], [D] = [I], and {L} = (0). Each set of this type of boundary 
data consists of eight cards, each of the first four cards giving the 
elements of the corresponding row of the [B] matrix in the format 4E12.4, 

and each of the second four cards giving the elements of the corresponding 

rows of the [D] matrix and {L} vector in the format 5E12.4 (fig. 5). 

Boundary data restrictions: Although there are no restrictions on the 

number of boundaries with kinematic (i.e., displacement) constraint on 
open branches, on a closed loop at most one boundary with kinematic 
constraint can be treated. Furthermore, if kinematic constraint does 
exist at some point on a closed loop, it is necessary that this point be 
chosen as the closure point. 

For the special cases of zero’th (n - 0) and first (n = 1) harmonics 
certain force boundary conditions are jhysically incompatible. For n = 0, 

27rrAP and 2iTr 2 AS represent resultant axial force and moment, respectively, 
externally applied at a shell cross section. Hence AP or AS cannot be spec- 
ified at all boundaries “since given AP or AS at all boundaries but one, overall 
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axial force and moment equilibrium of the shell determines the correspond- 
ing values at the remaining boundary. In addition, the effect of 
arbitrary rigid body axial displacement and rotation should be eliminated 
by specifying £ and v each at some boundary.* In general, AP or As is 
left unspecified at the boundary where £ or v, respectively, is specified. 

For n - 1, -Trr(AQ - AS) and —irr(rAP + AMi) represent resultant 
transverse force and moment, respectively, externally applied at a shell 
cross section. Hence AQ - AS cannot be specified at all boundaries 
since these values are related by resultant transverse force equilibrium. 
Furthermore, if AQ - AS is specified at all boundaries but one, then 
rAP + AMi may at most be specified at all boundaries but one, since 
resultant transverse force and moment equilibrium would then determine 
AQ - AS and rAP + AMi at the remaining boundary (or boundaries) . On the 
other hand, rAP + AMj may be specified at all boundaries, but then 
AQ - AS may at most be specified at all boundaries but two. In addition, 
the effect of arbitrary rigid body transverse displacement and rotation 
should be eliminated by specifying either: (1) n or v and £ or x each at 
some boundary or (2) ri or v at two boundaries.* In general, AQ - AS is 
left unspecified at the boundary (or boundaries) where n or v is specified, 
and rAP + AMj is left unspecified at the boundary where £ or x is specified. 

As noted previously, even in the case of a shell with rigid body 
freedom, it is still necessary that rigid body constraints be provided. 
These will not affect the solution, however, since the corresponding 
resultant force (and/or moment) will turn out to be essentially zero. 

Also, it should be noted that symmetry conditions generated internally 
when only half of a symmetrical structure is modeled provide partial rigid 
body constraint depending on whether the loading is symmetrical or anti- 
symmetrical (see p. 21) . This is the only case in SRA 100 of internally 
generated boundary conditions providing rigid body constraints. 


Input Deck Set-Up 

As a convenience to the user, four types of input sheets are supplied 
(figs. 2-5), which may be used as an aid in setting up the input deck. 
These sheets are essentially self-explanatory and represent a condensation 


*As noted above, boundaries on closed branches other than the closure 
point, are excluded from this use. It has been observed for n = 0 that 
specification of the rigid body constraint g = 0 at the closure point of 
a loop results in an undetermined rigid body displacement superimposed on 
the axial displacement field £. It may be noted that for n ~ 1 specifying 
the combinations n + v or £ - rx does not provide any constraint against 
rigid body motions since they are unaffected by rigid body motion. 
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of the preceding discussion* 

It often happens that the solution of a problem requires several 
cases to be run on SRA 100. Parametric studies, for example, may require 
many cases which, in general, reflect modifications in shell geometry. 

Even a single geometry problem, however, may require several harmonics, 
or several cases reflecting an envelope of applied loading and/or boundary 
conditions. 

Whenever possible, multiple cases should be stacked for a single pass 
solution, rather than run individually. Not only is turn-around time 
shortened*, but actual execution time is lessened as well. In particular, 
execution time is greatly reduced when the stacked cases reflect different 
loadings with the same harmonic number applied to the same shell geometry. 

For each case of a stack, a minimum of three cards is always required. 
These three cards are (1) a title card* (2) a case option card* and (3) 
a "nine 11 card. The title card of the' next case need only follow the last 
card of the previous case. The program handles each case in turn until an 
end-of-file card is reached. 

Case option card .- For the first case of a stack, columns 6, 8 , ... 18 
must each contain a 1. For the cases which follow, the 1 is omitted from 
those columns corresponding to tables rtiich are unchanged from the previous 
case. In other words, a 1 is inserted in a column only when the 
corresponding table of the previous case is to be modified for the present 
case. For a sequence of closed branch cases, it is necessary that the 
case option card of each case contain a 1 in column 4. 

For the first case of a stack, column 20 must also contain a 1. For 
the cases which follow, the 1 is omitted from this column only when all 
of the boundary data is unchanged from the previous case. Leaving column 
20 blank is equivalent to re-inputting the geometry table cards correspond- 
ing to all ring and prescribed boundaries with a 3 in column 5. If in a 
succeeding case, it is necessary to change only boundary loads (i.e. , ring 
forces or {L}-vectors at prescribed boundaries), then a 2 should be punched 
in column 20. 

Changing table data .- In a sequence of problems it is possible to use 
part of a table from the previous case. This is accomplished by first 
entering a 1 in the corresponding column of the case option card, and then 
inputting only those cards with the new data for that table. The first 
card of the revised table requires the appropriate integer in column I to 
specify the particular table geing changed. 

The following rules must be observed if either table 1 or table 2 is 
partially input: 

(1) If table 1 is partially input, it is necessary to re- input the 


24 



the geometrical data cards for the final point of subintervals 
terminating at branch points and the final point of the meridian. 

(2) If table 2 is partially input, it is necessary to re-input the 
layer properties for the wall layer with maximum layer number 
(>2) for the initial point of each subinterval. This is not 
necessary if the shell wall consists of a single layer. 

A table not input is taken from the preceding case if the corresponding 
column on the case decision card is left blank, or is interpreted as not 
applying (i.e. , all zeros) if 1 is entered in that column. Even when no 
table data is input, a "nine” card is required. 

Because boundary codes (col. 5) are input via table 1, it is often 
required to suppress interpolation of geometry data when running a stack 
of cases. This requirement can best be illustrated by an example. Con- 
sider a shell, which for the initial case, contains several force-free 
interior boundaries. Suppose now for a second case, the effect of two in- 
terior rings is sought at two of the previous force-free boundaries. Two 
revised table 1 cards are required to change the stored column 5 table. 

(The geometry data are merely duplicated from before.) If interpolation 
is not suppressed, the intervening geometry between the ring boundaries 
will be erroneously generated. Hence a means must be available to suppress 
interpolation. This is effected by inserting a 1 in column 1 of the second 
of two cards defining a span over which linear interpolation is to be 
suppressed. The geometry of that span will then be as defined by the 
previous case. In this case column 6 of the case option card should be 
left blank, since the geometry table itself is not being changed. 

One other circumstance may occur which requires suppression of the 
automatic interpolation process. As mentioned above, when table 1 or 2 is 
partially modified, it may be necessary to re- input several duplicate 
isolated data cards for these tables. Suppose, for example, that the 
modified portion of the shell geometry is separated from the terminal 
shell point by previously defined geometry. Unless a 1 is inserted in 
column 1 of the re-input card for this point, erroneous interpolation of 
the intervening geometry will occur. 

Boundary conditions .- As pointed out earlier, column 5 of table 1 is 
stored in the computer as a separate table relating boundary codes with 
boundary numbers. Therefore, if a particular boundary card is omitted in 
the present case, the code for the previous case controls. 

Final check list .- It is suggested that the following items be checked 
before submitting the job. 

(1) Title card must be included for every case. 
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(2) Case option card: 



'V.v ’ 


Column 4 must contain a 1 if shell contains a closed branch. 
Columns 6* 8, ...20 must contain 1 for first case. • 

Columns 21-23 define the harmonic. 

Column 30 not left blank when density data is input. 

(3) First card of each table must have table number inserted in 
column 1. 

(4) Check column 5 of table 1 at each boundary. 

(3) Check column 6 of table 1 at each branch point. 

(6) Tables 2 and 7 require a layer number in column 7 for the first 
card of each layer. 

(7) Every card of table data must have an entry number in columns 
10 through 12. 

(8) Note that h of table 2 is the layer half- thickness . Tables 1 

and 2 must always be input for first case. 

(9) Check ring cards... must be three per ring; one set for each 1 in 

column 5 of table 1. 

(10) Check [B], [D], and {L} boundary cards... must be eight per 
boundary; one set for each 2 in column 5 of table 1. 

(11) Check order of ring and [B] , [D], {L} cards to agree with order 
of boundary specification i n geometry table cards. 

(12) If n ■ 0 or 1, [B] , [D] , {L} matrices must be input in order to 
provide necessary rigid body constraint.* 

(13) The final data deck should be in the order shown in the diagram 
below. 


*This is not necessary for n - 1 in the case of two symmetry rings with 
antisymmetries! loading, since the symmetry conditions would automatically 
provide complete rigid body constraint (see pages 21 and 23 ) • 
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Output Data 

Printed output ,- The output datacf the program consists of a print-out 
of the input data and computed results. Since the print-out of the input 
data is self-explanatory, a discussion of it is unnecessary. 

When mass density data is input and column 30 of the case option card 
appropriately marked (n - 0 or 1 only), the following dynamic properties 
of the structure are printed immediately after the input boundary data: 

n =0, column 30 = 1: total mass and axial acceleration 

n = 0, column 30 - 2: rolling mass moment of inertia and angular 

acceleration 

n = 0, column 30 = 3: total mass and axial acceleration, rolling mass 

moment of inertia and angular acceleration 

n - 1, column 30 = 1: total mass and lateral acceleration 

n = 1, column 30 = 2: pitching mass moment of inertia and angular 

acceleration 

n = 1, column 30 = 3: total mass and lateral acceleration, pitching 

mass moment of inertia and angular acceleration, 
and center of mass location relative to the 
initial entry station. 
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Following these results (or the boundary data if this option is not 
employed) is a table of harmonic amplitudes of the four basic shell forces 
P , Q, S, and Mj and displacements £, x] 9 v, and x as ftmctions of meridional 
distance (i.e., for each value of s corresponding to integral values of the 
entry number). For symmetric response, P, Q, M 2 , §, n, and x vary circum- 
ferentially as cos n<|> and S and v vary as sin n<j> , whereas for antisymmetric 
response the reverse is true. 

Following this table is a table of the harmonic amplitudes of normal 
deflection w, primary shell stresses o q9 o^, a g ^, transverse shear stresses 
0 ,, o gz , and stringer centroidal stress 0 gt as functions of meridional 
distance. In this table x represents the normal distance through the shell 
wall measured from the shell inner surface. Since the normal deflection 
is essentially constant through the wall thickness, it is printed only once 
for each value of s. The primary shell stresses, which vary linearly 
through the thickness of each wall layer, are printed at the outer face of 
each layer for each value of s. The transverse shear stresses, which vary 
parabolically through the thickness of each wall layer, are printed at the 
middle surface of each layer, at each layer interface*, and at the inner 
and outer wall faces for each value of s. For symmetric response w,0 g , 0 ^, 
o sz , a st vary circumferentially as cos n<(> and a Q ^ and o^ z vary as sin ncf), 
whereas for antisymmetric response the reverse is true. 


Optional output . - The program will punch (i.e. , write on file PUNCH) 
two types of response data depending on columns 73 and 74 of the case option 
card. If column 73 contains a 1, a (component of the) prebuckling data deck 
required by SEA 101 is created. This deck consists of four groups of cards 
in the order given below: 

(1) ring stress resultant cards: [no. of rings/6] cards punched . t 

Each card, except possibly the last card, contains six consecutive 
ring boundary numbers and the corresponding hoop force amplitudes 
Ta in the format 6(I2,1PE11.4) . The rings are ordered in the 
direction of increasing entry number. § 

(2) shell normal stress resultant cards: [max. entry no./3] cards 

punched. Each card, except possibly for the last card, contains 
three consecutive entry numbers and the corresponding pairs 
(Tj,T 2 ) of amplitudes in the format 3(I2,lP2E11.4) , 

(3) shell shear stress resultant cards: [max. entry no./6] cards 

punched. Each card, except possibly the last card, contains 
six amplitudes T at six consecutive entry points in the format 
1P6E12.4, and 


*Note that these stresses are continuous at layer interfaces. 

tHere and in the following, [x] denotes the smallest integer £ x. 

§Note that a ring at a branch point is associated with the initial entry 
of the exiting branch. 
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(4) normal pressure cards: This group of cards is in the same format 

as type 3 above with T 12 replaced by the normal pressure 
amplitude X 3 . 

If column 74 contains a 1, the primary shell stress amplitudes a g , 
a< and o s ^ will be punched. These values are given at each face of 
each shell wall layer for each entry point. Each card contains the layer 
number, a layer face indicator (1 for the inner face or 3 for the outer 
face), the value of s, the normal distance of the layer face from the inner 
wall surface, and cr g , and a S( p, in that order in the format 212, 8X, 
1P5E12.4. For each entry number the cards are punched in the same order 
as the layer faces are encountered in traversing the wall thickness from 
the inner surface to the outer surface. 

If both column 73 and 74 of the case option card contain a 1, the 
cards of the two punched decks will be intermixed with one another. They 
can be separated by sorting on column 80, which is blank for the pre- 
buckling data cards but contains a 1 for the stress cards. 

Sample Problem 

In order to illustrate the application of SPA 100 to a practical 
problem, listings of the input deck and output data are presented in 
Appendix B (p. 134) for symmetric n = 0 and n - 1 load components run 
consecutively of the 140 sandwich cone of reference 3 (see diagram) . Each 
row of the input deck listing is the image of a punched card, ten columns 
of which correspond to one inch on the listing. In order to clarify the 
input deck, explanatory comment cards, each separated from the actual 
data by a blank card on each side of it, have been inserted at the 
beginning of each group of cards. 
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Only two geometry table cards (for the initial and final edges) are 
in principle required to describe the conical geometry. However, several 
interior boundaries have been inserted to limit subinterval length. 
Sufficiently many intervening points to describe adequately the variable 
pressure field and the calculated response are prescribed by the use of 
nonconsecutive entry numbers on successive cards representing the initial 
and final points of each subinterval. For this purpose, it should be 
noted that linear interpolation is used for basic shell data (tables 2-7) , 
whereas quadratic interpolation of response data is used when required by 
a subsequent program (e.g., SRA 101) . 

Since the shell has rigid body freedom, it is necessary to provide 
artificial rigid body constraints (g - v - 0), which is done at the 
second boundary. Corresponding to this, column 30 of the case option 
card contains a 1, which causes the proper shell and ring inertial loads 
to be calculated.* These loads self-equilibrate the applied shell and 
ring loads, thereby producing negligible rigid body constraint reactions. 

In order to generate a punch file of prebuckling data required by 
SRA 101, column 73 of the case option cards contains a 1. 

The input tables for the second case corresponding to n = 1 consist 
primarily of new normal pressure data, i.e. , a new mechanical loads table. 
Also a single geometry card was input to change the code 2 in column 5 
at the second boundary to a 3, signifying that the corresponding boundary 
data will remain unchanged from the preceding case and will not be input. 
Since the ring loads at the first boundary for n = 1 are different from 
those for n = 0, it is necessary to input new ring cards for this 
boundary even though the remaining ring data is unchanged. Consequently, 
the column 5 code 1 is not changed at this boundary. Since the column 5 
code 1 was left unchanged at the final boundary, it was necessary to re- 
input the ring data for this boundary. Since this ring data did not 
change, one could have alternately changed this column 5 code to 3 by 
re-inputting the final geometry card, and omitting these ring data cards 
from the deck. 

In the output data listing for each case, all data preceding the mass 
and translational acceleration values represents input data. The remaining 
data represents calculated results, viz* a table of shell force and 
displacement amplitudes, and a table of normal displacement and shell 
stress amplitudes, as described in the preceding section. This job (both 
cases) took 25 seconds of Central Processor time (starting from a 
relocatable binary form of SRA 100) on the CDC 6400 computer. 


*Although (rolling) rotational freedom is also possible in the n = 0 
response, only translational freedom need be indicated in column 30 
since the rolling acceleration is zero by virtue of the absence of 
torsional loads. 
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SEA 101 


SEA 101 is used to determine the buckling mode of linear asymmetric 
prebuckling states. It is dimensioned to treat a maximum of seven 
prebuckling harmonics and twenty-five buckling harmonics, the harmonic 
numbers of which need not be consecutive. The prebuckling state (i.e. the 
loading) need not have an axial plane of symmetry, and the prebuckling 
harmonics may contain symmetric and/or antisymmetric components. In the 
case of symmetric loading, the decoupled symmetric and antisymmetric 
buckling modes are computed simultaneously. The component prebuckling . 
states may be computed by SEA 100 and form part of the data deck for 
SEA 101. Both dead and live pressure fields are treated in the buckling 
analysis . 

SEA 101 is essentially an eigenvalue program, solving by iteration 
for the numerically minimum eigenvalue, corresponding to the smallest 
buckling load factor applied to the (unit) load distribution used in 
obtaining the prebuckling state. In order to avoid an unwanted negative 
eigenvalue, corresponding to buckling under the reversed loading, the 
program allows the input of an eigenvalue shift of the axisymmetric 
torsionless (i.e., bending) component of the prebuckling state. Further 
aspects of eigenvalue shifting are discussed below. 


Input Data 

The SEA 101 input deck is normally constructed from the SEA 100 
input deck and the unit load prebuckling data deck created by SEA 100 . 
when column 73 of the case option card of the SEA 100 data deck contains 
a 1..* The following steps should be taken to construct the SEA 101 
data deck: 

(1) Insert the prebuckling data deck followed by a card with the 
characters STOP in columns 1-4, after the boundary data cards. 
(This is in contrast to SEA 201, for which the prebuckling 
data deck is inserted between the "nine" card and the boundary 
data.) These inserted cards thus form the tail end of the 
input data, and are followed either by a second case or an 
end-of-file card. Further description of the prebuckling data 
deck is given below. 


*0f course, for idealized problems ' such as the use of membrane 
prebuckling states when only the zero and first prebuckling harmonics 
are present, the prebuckling data deck may be prepared manually. 
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(2) Since tables 5, 6, and 7 are not used by SRA 101, they may be 
removed from the deck* However, this step is optional, and if 
these tables are not removed, they will be ignored by the program. 

(3) Modify the case option card and insert several new cards giving 

(a) shell output points for prebuckling and buckling mode data, 

(b) ring output points for prebuckling data, 

(c) initial and maximum iteration numbers, 

(d) prebuckling harmonic numbers, and 

(e) buckling harmonic numbers* 

(4) Remove any artificial rigid body constraints which may have 
been imposed in the SRA 100 run* Generally, this is done by 
blanking column 5 of the appropriate card in table 1 and 
removing the corresponding set of eight boundary data cards 
from the deck* If the zeroth or first harmonics are included 
in the buckling mode, they may require special treatment with 
respect to rigid body constraints (seep* 37). 

(5) For a structure with a plane of symmetry normal to the axis of 

revolution and symmetrical loading, both symmetric and antisym- 
metric buckling modes exist. For an efficient solution, only 
one half of such a structure should have been modeled in setting 
up the SEA 100 run, with symmetry conditions imposed at the 
artificial edge(s). If an antisymmetric mode is desired, it is 
necessary to: (a) change the 8 to a 9 in column 3 of the geom- 

etry table card at a symmetrical ring boundary, and/or (b) change 
prescribed boundary conditions at a symmetry edge from £ * AQ = 

AS » x = 0 to AP = t| = v = AMi =0. 

Case option card *- This card is similar to the case option card for 
SRA 100 and is required for each case. (fig. 6 ) . Columns 4, 6, 8, 10, and 
12 have the same meaning as for SRA 100 except for one minor change* A -1 
in columns 5 and 6 may be used in place of a 1 in column 6 in order that 
the converged buckling mode data be properly arranged on files TAPES and 
TAPEll for use as the initial approximation in a succeeding case. This 
arrangement will occur automatically (i.e. , without the minus sign in 
column 5) if the case terminates at the maximum iteration number without 
satisfying the convergence index* The -1 in columns 5-6 should.be used, 
for example, if one expects to ascertain the effect of more (or less) 
buckling harmonics or study a similar shell in a succeeding case or later 
run. In order to have this data available in a later run, it is necessary, 
of course, to retain TAPE8 and TAPE11 as permanent files. 


Column 16 now contains the indicator for the prebuckling state data* 
Column 20 has the same meaning as for SRA 100, except that here a 2 does 
not apply since boundary load vectors are not input. 
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Columns 21-22 contain an indicator specifying the symmetry (or lack of 
same) about an axial plane of the prebuckling state. As an example, if the 
prebuckling state contained both axisymmetric bending and axisymmetric 
torsion, columns 21-22 would be left blank (cf. definition of symmetric 
and -antisymmetric response, p. 11) . 

If the user recognizes that equal and opposite eigenvalues are 
present, column 26 should be set to 1. The most common ways for equal 
and opposite eigenvalues to occur are: 

(1) there is only one prebuckling harmonic and it is nonaxisymmetric, 

(2) all nonaxisymmetric prebuckling harmonics are odd and the 
axisymmetric prebuckling harmonic, if present, represents pure 
torsion, or 

(3) the prebuckling state other than the axisymmetric bending 
component is described by (1) or (2) and one is searching for a 
critical state with a given amount of axisymmetric bending [i.e., 
with a nonzero eigenvalue shift (columns 36-47) but a zero 
scaling factor for axisymmetric bending (columns 60-71)]. 

If column 26 is mistakenly left blank, and one of these three conditions 
is satisfied, the program will recognize the error and correct it. 

However, if equal and opposite eigenvalues occur for some other reason 
and column 26 is left blank, the program will not converge. 

Column 28 contains an indicator to be set to 1 if the prebuckling state 
has an axisymmetric component consisting of pure torsion. It is used by 
the program only if. column 26 is left blank to determine if equal and 
opposite eigenvalues in fact exist. 

Column 32 gives the approximate number of significant digits desired 
in the eigenvalue. In the case of a symmetric prebuckling state, two 
eigenvalue sequences, one for symmetric buckling and one for antisymmetric 
buckling, are computed simultaneously. In this case, convergence is 
assumed if the numerically smaller of the two eigenvalue estimates 
satisfies the convergence test. If column 32 is left blank, four signifi- 
cant digits will be assumed. 

Column 34 contains an indicator for a live pressure field. Only a 
uniform live pressure field is treated precisely, since the effect of 
pressure gradients associated with the pressure field are not included in 
this program. 
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Columns 36-47 contain an eigenvalue shift Ag for the axisymmetric 
torsionless prebuckling component. This shift may be necessary to avoid 
an unwanted negative eigenvalue, corresponding to buckling under the 
reversed load. It is used in conjunction with a scaling factor k (input in 
columns (60-71) for this prebuckling component. To explain the usage of 
Ag and k let A denote the axisymmetric torsionless component of the unit 
load prebuckling state and B denote the remaining components of the unit 
load prebuckling state. If A i denotes the eigenvalue obtained by SRA 101, 
then the corresponding critical state has the components (Ag + jcAi)A and 
AxB. Geometrically, SRA 101 searches for the critical point. on a straight 
line in the A, B plane which intercepts the A-axis (abscissa) at Ag and 
has the slope 1 /k (fig. 7). In general,; the critical point obtained will be the 
one closest to the A-axis. Leaving columns 36-47 blank will automatically 
make k = 1 as well as As = 0, whereas leaving columns 60-71 blank when 
inputting a nonzero As will cause a critical state to be found with a 
given fixed amount of axisymmetric bending. 

Columns 59-71 are used for inputting the value of k discussed above. 

Column 76 may be used when some complementary solutions saved on a 
permanent file from either file TAPE2 or TAPE12 of a previous run apply to 
the current case. Normally in a sequence of cases run consecutively, to 
minimize execution time, the program computes only those complementary 
solutions which cannot be taken from the preceding case. For the first 
case of a run, the complementary solutions are placed on file TAPE2. In 
a succeeding case of the same run, the complementary solutions will be 
placed on the same file as for the last preceding case if all complementary 
solutions taken from that case correspond to harmonics which have the same 
position in the list of harmonics (ordered according to magnitude) for both 
cases. Otherwise, a new complementary solution file is constructed. If 
this file for the last preceding case was TAPE2, then it will be TAPE12 for 
the current case, or vice versa. Column 76 allows the same advantage to 
be taken of precalculated complementary solutions for two cases of two 
different runs as for two consecutive cases of the same run. For example, 
one may want to repeat a run with more buckling harmonics considered. In 
that case, the complementary solution file of the previous case should be 
attached to file TAPE2 and purged so that write access to this file is 
made available. In addition, a 1 should be placed in column 76 and an 
extra card of buckling wave numbers of the previous case should be inserted 
In the data deck to follow the buckling wave numbers card of the current 
case ( see p. 36) . 

Column 78 performs the same function as for SRA 100, viz. to override 
the abort command if the sub interval length criterion is exceeded. It, 
however, is used for SRA 101 in an additional way, somewhat analogous to 
the use of column 76. Normally, in a sequence of cases run consecutively, 
if the geometry is unchanged from the first case, columns 5-6 will be left 
blank for each succeeding case, whereas it will contain -1 for the first 
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case. In that event, even though a new complementary solution file may 
have to be constructed for each case, the initial approximation will be 
taken from the last buckling mode estimate of the last preceding case. In 
general, this will reduce the number of iterations for convergence from that 
required if the program generated initial approximation is used. Column 78 
allows in the same way the buckling mode data saved as permanent files from 
files TAPE8 and TAPE11 of a previous run to be used as the initial 
approximation for the current case. To do so, the permanent files repre- 
senting TAPE8 and TAPE11 from the previous run should be reattached to 
files TAPE8 and TAPE11 and purged so that write access to these files is 
made available. Then a 3 in column 78 will cause the initial approximation 
for each harmonic to be the last buckling mode estimate of the corresponding 
harmonic of the previous case, according to their position in a list of 
harmonics ordered by magnitude. Thus, for example, the initial estimate 
for the third harmonic will be the third harmonic component of the buckling 
mode estimate of the previous case, regardless of wave number. If the 
current case contains more harmonics than the pervious case from which TAPE8 
and TAPE11 were saved, the initial approximation for the excess harmonics 
will be the buckling mode estimate for the last harmonic of the previous 
case. 


Because of the capability afforded by columns 76 and 78, most of the 
advantages of running cases consecutively in the same run do not exist 
for SRA 101. One would do so only if forced to by an unduly large turn- 
around time on his computer -system. 

Additional cards following the case option card .- Four (five if column 
76 of the case option card contains a 1) additional (groups of) cards are 
required between the case option card and the input tables. Each of these 
cards has the format 1415. They prescribe the following data, 

(1) The shell output points for both the unit load prebuckling data 

and buckling mode estimates: On this card(s) the first field gives the 

number of output points and succeeding fields specify the entry numbers of 
the output points in increasing order. If the first field is left blank, 
all entry points will be output points by default. 

(2) The rings for which the unit load prebuckling hoop forces are to 

be output: On this card(s) the first field gives the number of rings for 

output and the succeeding fields specify the corresponding ring numbers in 
the order in which they are encountered when the shell meridian is 
traversed in the order of increasing entry number.* If the first field is 
left blank, the prebuckling hoop forces will be output for all rings. 


*Rings at branch points are associated with the initial entry of the 
exiting branch. 
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(3) The initial and maximum iteration numbers: Only the first two 

fields of this card are used, the first for the initial iteration number 
and the second for the maximum allowable iteration number. The run will 
terminate after the maximum number of iterations if convergence has not 
already been obtained prior to that point. The initial iteration number 
should be specified as 1 if a new complementary solution file is to be 
constructed or a new program generation initial approximation* is to be 
used. In particular, note that this is the case if column 76 of the case 
option card contains a 1 and/or column 78 of that card contains a 3. 

If both the complementary solution file and the initial approxima- 
tion are to be taken from that saved from a previous run, then the initial 
iteration number should be specified as 2 or greater. In this case its 
actual value is immaterial, the difference of the maximum and initial 
iteration numbers determining the allowable number of iterations. Also, 
it is of course necessary to attach the appropriate permanent files to 
TAPE2, TAPE8, and TAPE11, but write access is required for only TAPE8 and 
TAPE11. The most common use of this capability is simply the continuation 
in the current run of a nonconverged iteration process of a previous run. 

If the previous run has converged to a critical state through use of a 
nonzero eigenvalue shift X g , it can also be continued in the current run to 
search for a new critical state with a new value of k. In order that the 
complementary solutions are unchanged, however, it is necessary that A s be 
unchanged. Geometrically, we are searching for the critical state on a new 
line in the A,B plane with the same A-intercept but with a new slope. (cf. 
discussion cf eigenvalue shifting, p. 34) . 

(4) Prebuckling wave numbers: The first field of this card contains 

the number ( <7 ) of prebuckling harmonics considered. The succeeding 
fields give the wave numbers of these harmonics in the order of increasing 
magnitude. 

(5) Buckling wave numbers: The first field of this card(s) contains 

the number ( < 25) of buckling harmonics considered. The succeeding fields 
give the wave numbers of these harmonics in the order of increasing magnitude. 

(6) Buckling wave numbers of a previous case: This card is optional 

and it should be included in the deck only if column 76 of the case option 
card contains a 1. It is described by paragraph (5) above. 


*If the program generated initial approximation is used, the first true 

mathematical iteration is labeled as the "second** iteration, i.e., the 
number of iterations allowed is really one less than the maximum iteration 
number. 



Prebuckling data . - For SEA 101, the unit load prebuckling data deck 
follows the boundary data cards. The prebuckling data deck consists of 
subdecks for each component (symmetric or antisymmetric) of each harmonic 
of the prebuckling state * These subdecks are arranged in the order of 
increasing wave number. In the case of loading with no axial plane of 
symmetry, the antisymmetric component subdeck for each harmonic should 
follow the corresponding symmetric component subdeck. They will auto- 
matically be in the proper order if the corresponding prebuckling cases 
are set up as a sequence of consecutive cases in this order for a single 
run of SRA 100. 

In the special case of n = 0, the symmetric (bending) component and 
the antisymmetric (torsion) component of the prebuckling state may be 
obtained simultaneously by SEA 100 (see table I). This occurs if nonzero 
symmetric loads (e.g., X 3 ) and nonzero antisymmetric loads (e.g. , X 2 ) are 
included in the same n = 0 data deck for a single case. In this event 
only one subdeck (see below) will be produced by SEA 100 for both the 
symmetric and antisymmetric n = 0 states. Before inputting to SEA 101, 
this subdeck must be separated into two separate subdecks (as for any 
other harmonic). This is accomplished by replacing the T} 2 cards 
(described as type 3 on page 28) by an equivalent number of blank cards 
to form the symmetric component subdeck, and replacing the T<j>, (Tj,T 2 ) and 
X 3 cards (described as types 1,2, and 4 on pages 28-29) by equivalent 
numbers of blank cards to form the antisymmetric component subdeck. This 
manipulation of the n = 0 prebuckling data deck can be avoided by 
running on SRA 100 the symmetric and antisymmetric component for this 
harmonic as two separate cases, as is done for higher harmonics. This 
is done simply by replacing nonzero antisymmetric loads by zero for the 
symmetric component case, and replacing nonzero symmetric loads by zero 
for the antisymmetric component case. The penalty for so doing is that 
since two cases are being run in place of one, the SRA 100 execution 
time is increased. 

The subdeck for each component state (fig. 8) has been described 
as the prebuckling data deck created by SRA 100 (p. 28). It is sufficient 
to note here that: (a) the entry numbers on the ring and normal shell 

stress resultant cards are ignored by SRA 101, and (b) although the normal 
pressure cards are used only for live pressure loading (column 34 of the 
case option card set to 1), they must be included in each prebuckling 
subdeck in all cases. 

Rigid body constraints if buckling harmonics include n - 0 or h - If 
the buckling wave numbers considered include 0 or 1, it is necessary that 
rigid body constraints be provided for these harmonics, if the existing 
kinematic constraints do not already imply these constraints (see discussion 
of rigid body constraints in SRA 100 manual, p. 23). This cannot be done 
by means of input [B] and [D] matrices since this would produce erroneous 
boundary conditions for higher harmonics. Instead, column 3 of geometry 
table cards can be used for this purpose. A 4 in column 3 at an entry 
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corresponding to a force-free boundary will automatically provide trans- 
lational rigid body constraint. A 6 in column 3 at an entry corresponding 
to a ring boundary will automatically provide both translational and rota- 
tional rigid body constraint. Furthermore, a 4 or 5 in column 3 at a ring 
boundary will provide the constraint £ - 0 or v = 0 , respectively, for 
n = 0 and n - 1. This is summaried in the table below. 


Column 3 

4 

4 

5 

6 


Column 5 

blank 

1 

1 

1 


Rigid body constraint 

translational 
5 - 0 
v — 0 

translational and rotational 


it may be noted that specification of artificial rigid body 
translational constraint for a shell which has none, has no effect on the 
buckling mode obtained. This follows from the fact that no reaction forces 
are associated with this constraint. The same is not true for rotational 
constraint. Consequently, the imposition of artificial rotational rigid 
body constraint may have some small effect on the buckling mode insofar as 
the torsional axisymmetric or the first harmonic are important components 
in the buckling mode. Since this is rarely, if ever, the case for rota- 
tionally free shells, one may assume that the specification of artificial 
rotational rigid body constraint has negligible effect on the buckling 
mode obtained.* 


Output Data 


The output data of the program consists of a print-out of the input 
data and computed results. This print-out is essentially self-explanatory; 
however, a few clarifying remarks are given below. 

For each specified shell and ring output point, prebuckling and 
buckling data for each harmonic is printed on consecutive lines in the 
order of increasing wave number. The printed results consist of the 
sequence of computed buckling mode and eigenvalue estimates. Only the 
shell displacements £,n»v, and x of each mode estimate are shown. The 
letter C or S which appears in the heading for each of these variables 
(and also the prebuckling variables Ti , T 2 , T 12 , X 3 , and T ) refers to 
cosine or sine amplitudes, respectively. Note that the symmetric components 
of the buckling mode are cosine amplitudes for ?,n, and x and sine 
amplitudes for v. The reverse is true for the antisymmetric components. 

If the prebuckling is symmetric , these represent two independent buckling 
modes computed simultaneously. Otherwise, they are coupled components of 
a single buckling mode. The absolute magnitude of the values shown is 
meaningless since the buckling mode is determined only to within an 
arbitrary multiplicative factor. Corresponding to the two buckling modes 
for symmetric prebuckling, two eigenvalue estimates LAMDA A and LAMDA S, 


*For some unknown reason, an eigenvalue shift does not eliminate the need 
for artificial rotational rigid body constraint, as it does for SRA 201. 
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standing for antisymmetric and symmetric buckling respectively, are printed. 
The value labeled RE printed alongside the eigenvalue estimate is the 
relative defference between the last two successive estimates. The iteration 
sequence is terminated if either: (1) RE of the numerically smaller 

eigenvalue estimate becomes less than 1CT N where N is the convergence index, 
or (2) the maximum iteration number is reached. 

It may be emphasized here that if a nonzero eigenvalue shift A s is 
used, a converged value of LAMDA, say Aj, corresponds to a critical state 
with the components (A + Aik)A and A^B, where A represents the unit load 
axisymmetric torsionless prebuckling component, B represents the remaining 
components of the unit load prebuckling state, and k is the input scaling 
factor for A. Thus a single point of an interaction curve in the A,B 
plane has been found. 


Sample Problem 

In order to illustrate the application of SRA 101 to a practical 
problem, listings of the input deck and output data are presented in 
Appendix B (p. 168) for buckling of the 140° sandwich cone of reference 
3. The prebuckling state consists of symmetric n = 0 and n = 1 com- 
ponents, the calculation of which has been used as the illustrative 
problem for SRA 100 (see p, 29). Preliminary runs of SRA 201 using only 
the axisymmetric part of the prebuckling data indicated critical load 
factors of 5.22 for n= 6 and -2.77 for n = 2. These suggest that under 
the combined loading a negative eigenvalue exists (corresponding to 
buckling under the reversed loading) which is smaller in absolute value 
than the smallest positive eigenvalue. In order to avoid this negative 
eigenvalue, it is necessary to employ the eigenvalue shift capability 
of SRA 101. However, unless one happens to choose the proper combination 
of A s and tc, the critical state obtained by SRA 101 will not have the 
desired ratio of n = 0 to n = 1 components. As discussed previously, 
if A represents the unit load n = 0 component and (in this example) B 
represents the unit load n = 1 component, and A-j represents the eigen- 
value obtained by SRA 101, then the critical state found will contain 
(A g ■+ kAj)A and AjB. Only if A s + kAj - Aj will the buckling mode for 
the loading of interest be obtained. It is therefore clear that when 
using an eigenvalue shift, several SRA 101 runs have to be made in order 
to ,f zero in” on the proper value of k for and given value of X s * In so 
doing, use can be made of the fact that for a given A s > as k decreases, 

As + kAi decreases whereas Aj increases. This follows from the known 
fact that the interaction curve in the first quadrant of the A,B plane 
has a negative slope (fig. 7). If an estimate of A* is available, in 
this case something less than 5.22, say 5.0, one chooses A s to be greater 
than o^e-half of this value to avoid the negative eigenvalue, but also 
less than this value to avoid slow convergence associated with approx- 
imately equal and opposite eigenvalues. For the illustrated run A g was 
chosen to be 3.75. Then is estimated from the desired relation A g + 
i*e, k = 1 - Ag/Ai = 0.25. In the illustrated run k = 0.2534. 
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The input data deck is formed from the deck used for SRA 100. First, 
the data cards for harmonics after the first one (in this example, the 
cards for the n - 1 harmonic) are discarded. Second, the case option card 
is modified (see fig. 6) and five additional data cards are inserted as 
shown in the listing (p. 168). Only four shell output points are specified 
on the first additional card, as this will give sufficient information for 
the specified nine buckling harmonics to ascertain the degree of mode 
convergence obtained. The second additional card is a blank card, meaning 
that prebuckling ring hoop forces are to be output for all rings. On 

the third additional card, the number of iterations is limited to six, since 

by saving files TAPE2, TAPE8 , and TAPE11 as permanent files, the iteration 
process can be continued in a subsequent run. On the fourth and fifth 
additional cards are given the number of prebuckling and buckling harmonics, 
respectively, and the corresponding wave numbers. Third, the 2 is removed 
from column 5 of the geometry table card at the second boundary, and the 
eight rigid body constraint [B] , [D] , {L} cards are removed. However, 
since n « 1 is included as a buckling mode harmonic, it is necessary to 
specify rigid body constraints for this harmonic. This is done by means 
of a 6 in column 3 of the geometry table card corresponding to the first 
ring boundary.* Fourth, the mass density and mechanical loads tables have 
been removed from the deck, although this step is optional. Fifth, the SRA 100 
generated prebuckling data deck for the harmonic n = 0 followed by that for 

the harmonic n « 1 is inserted after the boundary data cards. Finally, the 

"STOP” card is inserted after the prebuckling data cards to complete the deck. 

In the output data listing, all data preceding the heading BUCKLING 
MODE ESTIMATE represents input data. Note that only the first entry of 
the wall properties table is printed. This occurs for tables 2, 3, and 4 
for SRA 101 when the data for all of these tables is constant over the 
shell meridian. The first buckling mode estimate shown are the crude 
program generated quadratic distributions for v and x* Uncoupled anti- 
symmetric (LAMDA A) and symmetric (LAMDA S) buckling modes sequences are 
calculated and shown simultaneously. Although neither one of them has 
achieved the specified degree of convergence, the run terminates after 
six iterations as specified. It may be continued in a subsequent run 
by re-attaching., files TAPE2, TAPE8 , and TAPE11, saved as permanent files 
from this run, (with write access to TAPE8 and TAPE11) and changing the 
initial iteration number in the data deck to 2. This job took 148 sec- 
onds of Central Processor time (starting from a relocatable binary form 
SRA 101) on the CDC 6400 computer. 


*The first ring was favored over the second ring for this purpose since 
in the physical problem considered, there is a heavy payload mass 
attached to it which in effect acts as a rigid body constraint. 
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SEA 200 


SEA 200 computes the. nonlinear large deflection (or linear) stress 
and displacement response to axisymmetric torsionless loads. Mechanical 
and/or thermal loads are treated, as in SEA 100. In contrast to SRA 100, 
SEA 200 treats both live and dead pressure loading. The nonlinear response 
is computed by an iterative process based on Newton's method. 

In SRA 200 the load level is controlled by an input load factor Ag 

which multiplies a unit load system. The unit load system is defined by 
tables 6 and 7, the mechanical and thermal loads included in the ring data, 
and the {L} vector in the prescribed boundary condition matrices. In 
SRA 100, this data represents the total loading; in SEA 200 it represents 
only the unit loading of a proportional load system. The nature of the 
program can best be described by a plot of load factor X and any response 
variable y as shown in the diagram below. 



In this sketch, y 0 represents the nonlinear response state which is 
determined for the load level X o . The linear perturbation state Ay is 
the incremental response due to a unit incremental load AA at the load 
level Ag. The program computes both the yg and Ay states. When Aq is 
set equal to zero (and the loading is dead), the linear perturbation state 
is precisely the SRA 100 solution. In addition, for pure mechanical 
loading the program computes and prints out the generalized structural 
stiffness Kg and its derivative Kg^ 1 ) m (dK/dA)g at the specified level Ag. 
Here, K is simply the slope dA/dy where y now represents the special 
deflection which has the property that the area under the A-y curve equals 
the work of the external loads (or equivalently the strain energy stored). 
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It may be noted that as the load Xq approaches a limit load Ac, for 
which dA/dy =0, the rate of convergence of Newton 1 2 s method decreases, 
and when A = X c the method diverges. An extrapolation for the limit 
load may be obtained from the results of SRA 200 through use of the approx- 
imate formula 

A c * A 0 “ Kq/ 24 15 

for which the error diminishes as Xq approaches A^. 

Input Data 

The input data is practically identical to that for axis ymme trie 
torsionless loading in SRA 100, with the following exceptions: (1) the 

case option card is modified, (2) if available, an initial approximation 
state is input, (3) the use of column 3 of table 1 is slightly different. 

It should be noted that input data which is not required in the 
axisyrametric bending solution, viz. E12, k2, NGJ, X2, EI X , EI X y, GJ, F , 

N x , and Ny, is ignored by the program. The format of the cards which ^ 
normally give this data is, however, unchanged so that these cards can be 
used interchangeably with the other programs. 

Corresponding to the reduced order of the equations for axisymmetric 
bending, boundary conditions for SRA 200 are specified in terms of the 
reduced force vector {y} = {P, Q, and the reduced displacement vector 
{z} = {?, n, x)* Thus, in reality, input [B] and [D] matrices are only 
3x3 matrices and {L} is a 3x1 matrix. In order that the eight cards 
giving prescribed [B] , [D], and {L } matrices for the other programs may be 
used without modification, the third and seventh card as well as columns 
25-36 of the remaining cards are ignored by SRA 200. Note that columns 
25-36 give for the other programs the coefficients of AS and v in the 
boundary equations. In order that the desired interchangeability of 
prescribed [B] , [D] , {L} cards (for the case n = 0) be effected, the 
relationship between AS and v should be set up for the other programs 
as the third boundary equation.* 

Case option card .- This card differs from the case option card of 
SRA 100 only as follows (fig. 9): 

(1) a 2 is not used in column 20 since new complementary solutions are 
always required for each Newton iteration. 

(2) No harmonic number is input, i.e., columns 21-23 are left blank. 


*Note that the only rigid body constraint required for SRA 200 is £ = 0. 
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(3) Column 28 is used to indicate the initial approximation to be 
used in the Newton iteration for the nonlinear solution. 

(4) Since only axisymmetric torsionless response is treated, 
rotational rigid body modes are excluded. Thus column 30 
should be blank or contain a 1. 

(5) A convergence index N for the Newton iteration is input in 
column 32. The relative difference between the rotation field x 
for the converged iteration step and the preceding one will be 
uniformly less than 10"^, i.e. , they will agree essentially to 

N significant digits. If this column is left blank, N is 
automatically taken to be 4. 

(6) The extra option of a live pressure field is included in the 
indicator specified in column 34. In contrast to SKA 201, 

SKA 202, and SKA 300 the effect of pressure gradients associated 
with the pressure field have not been included in this program. 

(7) The load factor X 0 at the nonlinear state is computed is 

input in columns 36-47. If left blank, only the linear solution 
will be calculated. In this case, column 28 should contain a 2. 

(8) Column 76 is used as a flag to create the additional prebuckling 
data deck (see p. 46) . This data is used only by the postbuckling 
program SKA 202. 

Initial approximation state .- If column 28 of the case option card 
contains a 1, a group of cards representing an initial state for the 
Newton iteration is input between the "nine" card (which terminates the 
table data) and the boundary data. This set of cards is merely the standard 
prebuckling data deck obtained from a previous SKA 200 run (see p. 45). 

If SKA 200 has been run at one load level, and the response is 
desired at a neighboring load level, then the prebuckling state data from 
the first load level should be used to obtain the initial approximation 
for the second load level. Thus, in a sequence of problems, in which only 
the load level changes, for each case after the first, column 28 of the 
case option card should be left blank, as should also columns 6, 8,.. .,20. 

In general, when no initial approximation state is available, a 2 is 
punched in column 28 of the case option card. In this case, the first 
iteration will be simply the solution of the linearized equations. 

Use of column 3 of table 1 .- In SKA 200, this column has two purposes: 
(1) to specify a symmetrical ring at a plane of symmetry when analyzing 
only one-half of a symmetrical structure, and (2) to specify real axial 
translational fixity at a ring. 
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Symmetrical riqg at a plane of symmetry: In the case of linearized 

shell equations antisymmetrical loading about a symmetry plane leads to 
antisymmetrical response. In this case, a 9 is punched in column 3 of 
table 1 at the symmetry edge in the data deck for SEA 100 (see p. 21). In 
the nonlinear case, however, the response to an antisymmetric loading 
contains both antisymmetric and symmetric components. Therefore, in this 
case, the complete shell, instead of the half shell, must be modeled, and, 
consequently, the indicator 9 in column 3 of table 1 is not used for SRA 200 
unless Xq — 0. The use of an 8 in column 3 of table 1 to specify 
symmetrical response is the same as for SRA 100. 

Axial fixity at a ring: If real axial fixity (£ = 0) exists at a ring, 

this may be specified simply by putting a 1 in column 3 of the corresponding 

geometry table card. This option should not be used to specify artificial 

rigid body constraint in the case of a free structure, since the ring 
inertial loads would then be improperly treated. 

Output Data 

Printed output .- The output data format is essentially the same as 
that for SRA 100 with the following exceptions: 

(1) Input data not required in the axisymmetric bending solution is 
not output. 

(2) For nonuniform live pressure fields, the axial and radial 
pressure derivatives X 3x and X 3y are required by SRA 201, SRA 202, 
and SRA 300. For these programs they are input in E12.4 format 
in columns 49-60 and 61-72, respectively, of table 6 cards. 
Although their effect is neglected by SRA 200, X 3x and X 3y are 
included in its output of the mechanical loads table. 

(3) A sequence of maximum relative differences in the calculated 
meridional rotation fields of the last two iterations is printed. 

(4) Tables of shell forces (P, Q, M^), displacements (£, n, x) and 
normal displacement (w) , stresses (a g , a^, a gz , a gt ) are printed 

for both the nonlinear state, yg, and the linear perturbation 
state Ay. 

(5) In the nonlinear state force-displacement table, both the 
meridional rotation x of the final iteration and the meridional 
rotation xi of the previous iteration are printed, since the 
convergence test is made on these values. 

(6) The column labeled xi in the corresponding linear perturbation 
state table should be ignored. (It contains simply the x~values 
of the nonlinear state) . 
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(7) If thermal loads arerotiiput or column 76 of the case option 
card contains a 1, then the prebuckling stiffness Ko and its 
derivative (dK/dA)o at the input load level A 0 are printed. 

These are printed after the stress table for the linear perturba- 
tion state and complete the printed output. 

Optional output.- As for SEA 100, SEA 200 creates optional output 
files of prebuckling data and stresses, depending on columns 73, 74, and 
76 of the case option card. The primary shell stresses cr and are 

written on the PUNCH file in the same format as for SEA 100 (p. 29). 
However, for the sake of convenience, the prebuckling data, which here 
consists of a standard part required by SEA 201 and SEA 202 and an addi- 
tional part which is optional input for SEA 202 only, is written on 
logical unit 7. This file may then be manipulated as file TAPE 7 by user 
control cards. 


Standard prebuckling data: Normally, when Aq ^ 0, this data consists 

of two basic parts: (1) nonlinear state data at the load level Aq , 
followed by £) linear perturbation state data at A 0 . The nonlinear state 
data consists of four groups of cards in the order given below: 

(1) a single card containing the load level Aq and a live load 

indicator (given in column 34 of the case option card) in the 
format 1PE12.4, 12, 


(2) ring stress resultant cards: [no. of rings/6] cards written. 

Each card, except possibly the last, contains six consecutive 
ring boundary numbers and the corresponding hoop forces T in 
the format 6 (12, 1PE11.4). The rings are ordered in the^ 
direction of increasing entry number. 


(3) shell stress resultant cards: [max. entry no./3] cards written. 

Each card, except possibly the last, contain three consecutive 
entry numbers and the corresponding pairs of stress resultants 
(Tl, T 2 ) in the format 3 (12, 1P2E11.4). 


(4) meridional rotation cards: [max. entry no./6] cards written. 

Each card, except possibly the last, contains six values of ^ 
at six consecutive entry points in the format 1P6E12.4. 


The linear perturbation state data is represented by cards of types (2) , 
(3) , and (4) above in the same order and format but with the state varia- 
bles at Aq being replaced by their derivatives with respect to A at Aq. 

If Aq =0, only the linear perturbation state cards are produced. 
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Additional prebuckling data: Normally, when Ap # 0, this data, which 

follows the standard prebuckling data, is composed of four parts, all of 
whose variables are evaluated at Ap, in the order given: (1) nonlinear 

and perturbation out-of-plane ring bending moments (M^, 3M /3A)-, (2) non- 
linear and perturbation shell bending moments (Mi, 3Mi/3A, M 2 , 3M2/3A), 

(3) the second-order perturbation state (3 2 T^/3X 2 ,3 2 Ti/3A 2 ,3 2 T2/3A 2 ,3 2 x/3A 2 ), 

and (4) the prebuckling stiffness and its derivative (K, 3K/3A). The 
number and format of these cards are summarized below. 

(1) Ring bending moments: [no. of rings/4 ] cards written. Each card, 

except possibly the last card, contains 4 pairs (M ,3M /3A) of ring moments 
for four consecutive rings in the format lP8E10.3. y y 

(2) Shell bending moments: [max. entry no./2] cards written. Each 

card, except possibly the last card, contains 2 quadruples (Mi, 3M 1 /3A,M2, 
3M2/3X) of shell bending moments at two consecutive entry points in the 
format 1P8E10.3. 

(3) Second-order perturbation state: This set of cards is completely 

analogous to the linear perturbation state deck discussed above with second 
derivatives with respect to X replacing the corresponding first derivatives. 

(4) Structural stiffness card: This is a single card with K and 

3K/3X in the format 1P2E12.4. 

If Xp = 0, the second order perturbation state is null and is omitted 
from this output. 


Sample Problem 

In order to illustrate the shell branching capability of the SRA 
programs, a structure was contrived for use as a sample problem for SRA 200 
(and the remaining programs) . This shell consists of a closed branch with 
open branches off of it, set up so that the structure has a plane of 
symmetry normal to the axis of revolution. A diagram of its meridian with 
corresponding entry numbers is shown below. 
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All six edges are assumed to be force-free* Interior boundaries at 
entries 30 and 68 have identical attached rings, whereas all others are 
force-free. The loading consists of uniform dead external pressure on the 
closed branch. 

In actual practice, only one-half of this structure, from entry 1 to 
38, would be modeled with symmetry conditions (£ = x “ AQ = 0)* specified 
at the artificial edges at entries 1 and 38. The complete shell is 
modeled here for illustrative purposes only, and was chosen so that- 
solution of the half-shell would provide an absolute check of the results. 

Input and output data listings for this structure are shown in 
Appendix B (p. 180). Note the 1 in column 4 of the case option card signifying 
a closed branched shell. A nonlinear load level of unity (i.e., a pressure 
load of 100 psi, assuming pound-inch units, as given by table 6) was arbitrarily 
chosen (col. 38). The 1 in column 73 will cause the standard prebuckling 
data to be written on file TAPE7 ... In order to use this data in a buckling 
run, it is necessary to either copy this file to PUNCH or save it as a 
permanent file. 

The linear segments of the meridian between boundaries required by 
branch points and discontinuities in slope were chosen short enough so 
that no additional boundaries are required. Note that column 6 of geometry 
cards at the final entries of subintervals terminating at branch points 
contain the corresponding branch point numbers. Branch point numbers have 


*These conditions may be input directly as prescribed [B] , [D] , and {L} 
matrices or indirectly through use of a symmetrical null ring (i.e., with 
zero stiffness, eccentricity .relative to the reference surface, and load). 
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been assigned (at the user's option) in the order they are first encountered 
when the meridian is traversed in the direction of increasing entry number. 

Although this structure has rigid body freedom, it is obvious that the 
applied loading is self-equilibrating. Therefore, it is unnecessary to 
specify rigid body freedom in column 30 of the case option card. However, 
it is still necessary to provide artificial rigid body constraint (.§ = 0), 
which is done at the final boundary, i.e. , the closure point. Note that 
the third and seventh cards of this boundary data, which specify v - 0, 
are ignored by SRA 200. 

In the output data listing, all data preceding the statement ITER = 2 
represents input data. In this and the next row ITER is the Newton iter- 
ation number, and MAX. REL. ERR. is the maximum relative difference in the 
last two calculated meridional rotation fields. Thus, this solution 
converged to the required four digits (specified by default, column 32 of 
the case option card) in three iterations. Following are tables of shell 
forces and displacements, and shell normal displacement and stresses for 
both nonlinear and linear perturbation states, as described previously. 

Note that for both the nonlinear and linear states, the elastic part of 
the axial displacement field (the difference of £ at two different points) 
has been masked by the superposition of a relatively large rigid body 
displacement. As noted in the footnote on page 23, this occurs when the 
rigid body constraint is specified at the closure point of a closed branch. 
There is no loss of numerical significance in the remaining part of the 
solution. Also, the appearance of this undesirable rigid body displacement 
can be suppressed by specifying the rigid body constraint on an open branch. 
The structural stiffness Kq and its derivative Kg(^) are the final printed 
output. It may be noted that Kg and Kg^ do not have unique values for the 
nonlinear equilibrium state obtained. Their scale depends on the choice 
of the unit load system. For example, if a unit pressure field of 1 psi 
were used with a load factor of 100 to obtain the same equilibrium state, 

Kg would be larger by a factor of 100 2 and Kg(^) would be larger by a 
factor of 100. In general, if the unit load system is changed by a factor 
C, then for a given nonlinear state Kg changes by the factor 1/C 2 and Kg' 1 ' 
by the factor 1/C. This job took 10 seconds of Central Processor time 
(starting from a relocatable binary form of SRA 200) on the CDC 6600 computer. 
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SEA 201 


This program is used to determine asymmetric (harmonic) buckling modes 
of axisymmetric torsionless prebuckling states • The prebuckling states 
may be computed by SRA 200 and saved as a permanent file. This data file 
is denoted as the standard prebuckling data in the SEA 200 user’s manual. 

It is inserted in the SEA 200 data deck, which then, with some minor 
modifications, becomes the data deck for SEA 201. 

Geometrically speaking, the method used consists of seeking bifurca- 
tion of fictitious equilibrium states on the tangent to the nonlinear load- 
deformation curve at a load level Aq (used in the prebuckling SEA 200 run) . 
A sequence of eigenvalue estimates p(] c ) is obtained by a Stodola-type 

iteration whose limiting value \x\ (plus the eigenvalue shift, y s , if used) 
represents the difference between the critical load estimate Ax and Aq. 

If this difference is not too large, so that the linearization of the 
prebuckling response between Aq and Ax is a good approximation, then Ax 
will be a good approximation to the desired critical load. To test this 
assumption, in general one has to recompute the prebuckling state, using 
SEA 200, at a new value of Aq closer to Ax* and then compute a new value of 
Ax- If the change in Ax is insignificant. Ax is accepted as the true 
critical load for buckling in the harmonic considered. 

For a given Aq* SEA 201 may be run with a sequence of cases in search 
of the harmonic which yields the minimum eigenvalue, each case correspond- 
ing to buckling in a different harmonic. The values of Ax obtained are 
estimates of critical values of the load factor A in the vicinity of the 
value Aq. 

For each harmonic, as many as four modes may be requested. The 

eigenvalues, y + yx , obtained by the program will be the ones nearest 
s 

to the input eigenvalue shifts , p , which may be input separately for each 

s 

of eigenvalues requested. In general, the eigenvalues, pj* will 
be the smallest eigenvalues in absolute magnitude for the specified 
harmonic, obtained in the order of increasing magnitude. More than one 
eigenvalue may be required, for example, if the smallest one is opposite 
in sign to that being sought. Further aspects of eigenvalue shifting 
are discussed below. 
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Input Data 


The SEA 201 input deck is normally constructed from the SRA 200 input 
deck and the standard prebuckling data deck created by SRA 200 when 
column 73 of the case option card of the SRA 200 data deck contains a 1.* 
The following steps should be taken in constructing the SRA 201 data deck: 


(1) Insert the standard prebuckling data deck (fig, 10) as a unit 
between the "nine" card (following the input tables) and 
boundary data cards. 

(2) Since tables 5 and 7 are not used by SRA 201, they may be 
removed from the SRA 200 deck. However, this step is optional, 
and if present, these tables will be ignored by the program. 

(3) In the case of a nonuniform live pressure field, table 6 should 
contain the pressure derivatives X^ x and in E12.4 format in 

columns 49-60 and 61-72, respectively. In order to avoid 
overlooking this step, it is suggested that this data be 
included in table 6 cards at the time of original preparation. 

(4) Modify the case option card (see below) . 

(5) Remove any artificial rigid body constraint which may have been 
imposed in the SRA 200 run. Generally, this is done by 
blanking column 5 of the appropriate card in table 1 and 
removing the corresponding set of eight boundary data cards from 
the deck. The cases of n = 0 or 1 require special consideration 
with respect to rigid body constraints and they are discussed 
further below. 


(6) For a structure with a plane of symmetry normal to the axis of 
revolution, both symmetric and antisymmetric buckling modes 
exist. For an efficient solution, only one-half of such a 
structure should have been modeled in setting up the SRA 200 
run, with symmetry conditions imposed at the artificial edge(s). 
If an antisymmetric mode is desired, it is necessary to: (a) 
change the 8 in column 3 of the geometry table card at a 
symmetrical ring boundary to a 9, and/or (b) change prescribed 
boundary conditions at a symmetry edge from £ = AQ = x = 0 to 
AP = n = v = AMi - 0. 


*For idealized problems using a membrane prebuckling state, it may be 
convenient to construct the standard prebuckling data deck by hand. 



Case option card *- This is similar to the case option card for SRA 200 
and is required for each case (fig. 11) . Columns which have different 
meanings from those of SRA 200 are discussed below. 

Column 16 contains the indicator for the unit load pressure field 
table, i.e., table 6 from the SRA 200 run with the pressure derivatives 
X 3x and included in columns 49-60 and 61-72, respectively. SRA 201 

uses the pressure gradient only in the case of a nonuniform live pressure 
field, and uses the pressure Xsonly in the case of a live pressure field 
or surface loading applied off of the reference surface. If neither of 
these cases is being considered (as determined by column 34 of the SRA 200 
case option card), removal or retention of table 6 in the SRA 201 data 
deck is optional. Also, in this case the value of column 16 will not 
affect the run. 

Columns 17-18 contain the indicator for the prebuckling state data. 

If these columns contain -1, SRA 201 will expect only the linear 
perturbation state part of the standard prebuckling data deck, i.e. , the 
deck produced by SRA 200 when the nonlinear load level Xq is input as 
zero. In this case, the nonlinear prebuckling state will be set to zero, 
and dead loading applied at the reference surface will be assumed. Thus, 
this option is for studying buckling of linear states calculated by SRA 200 
when columns 34 through 47 of its case option card are left blank. 

Columns 21-23 contain the harmonic number (i.e., circumferential 
wave number) of the buckling mode to be obtained. 

Column 26 contains the number of modes (<4) to be obtained. If more 
than one mode is specified, an extra card should be inserted in the deck 
immediately following the case option card, giving the eigenvalue shifts 
for the modes after the first. The format of this card is 3(E12.4) so 
that the eigenvalue shift for the second mode is punched in columns 1-12, 
for the third mode in columns 13-24, and for the fourth mode in columns 
25-36. If the shift for a higher mode in input as zero (i.e., the 
corresponding columns left blank), the shift left over from the previous 
mode will be used. 

In the case of axisymmetric buckling (n - 0), the bending and 
torsional modes are uncoupled. Which of these modes is desired is 
specified in column 28. 

Column 30 is similar to column 30 of the case option card of SRA 100. 
It applies only in the cases n = 0 or 1, and then only if the eigenvalue 
shift and the nonlinear load factor Xq are zero (see p. 53). 

Column 32 gives the number of significant digits desired in the 

eigenvalue y A . Thus, if the critical load is , the eigenvalue shift is 

y * and the nonlinear load level is Aq, then column 32 specifies the 
s 
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number of significant digits in the difference Pi - ^1 - (^o + P ) , to 

s 

which the computed sequence of eigenvalue estimates converges. If column 
32 is left blank, four significant digits will be assumed. 

Columns 36-47 contain the input eigenvalue shift for the first mode 
to be obtained. A shift may be input when one has some prior knowledge 
of the result to avoid a negative eigenvalue (since convergence is always 
to the eigenvalue closest to the shifted origin) or to speed up convergence 
(since the rate of convergence depends on the ratio of the two closest 
eigenvalues measured from the shifted origin)* If a value greater than 10 38 is 
used in columns 36-47, the eigenvalue shift left over from the previous 
case will be used. In a sequence of cases, this value may be unknown at 
the time of input since the program may make automatic shifts in order to 
speed up convergence. 

Column 73 is used for punching the buckling mode data for the 
imperfection sensitivity program SRA 202. 

Column 74 is used to punch the modal displacements u, v, and w. 

As mentioned previously, the program has the capability during the 

calculation to make an automatic eigenvalue shift. This will occur if: 

(1) the convergence rate is too slow, (2) p 2 *1 p (p 2 being the eigenvalue 

s 

which is controlling the rate of convergence to pi) has the same sign as 

Pl + p but is snaller in absolute value, or (3) if p 2 + p has the 
s s 

opposite sign as pi + p but has the same sign as p . In the first case, 

s s 

a shift is made to the vicinity of pi + p g , whereas in the last two cases 

a shift is made to the vicinity of p 2 + p . Automatic eigenvalue shifting 

s 

may be suppressed by inserting a 1 in column 75. 

In a sequence of cases in which the shell geometry is unchanged, the 
initial approximation in the iteration for the first mode of each case 
after the first will be taken as the last mode converged to in the pre- 
ceding case if column 77 is left blank. If a 1 is inserted in column 77, 
this is suppressed and the same crude approximation (quadratic variation 
of v and x) as used for the first case is used. In the cases n « 0 or 1 
when column 30 is not blank, the rigid body modes are computed directly, 
and the initial approximation for first elastie r mode is never taken from 
the preceding case. 
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A common use of SRA 201 is to compute the buckling modes for several 
different harmonic numbers of a given structure and prebuckling state in 
a single pass through the computer. This is accomplished by stacking 
several cases in sequence, for each case after the first, only three 
data cards are required. These are the title card, case option card, and 
the "nine" card to signify that no more input tables are to be read. 

Buckling in the harmonics n « 0 and 1 .- If the structure possesses 

rigid body degrees of freedom, it may be necessary, in the cases n « 0 

and 1, for the user to specify artificial rigid body constraints, as well 

as observe other special rules. In the case of static prebuckling 

analysis by SRA 100 or SRA 200, shells with rigid body degrees of freedom 

are treated by the use of artificial rigid body constraints and the internal 

generation of equilibrating inertial forces. For the buckling (and 

vibrations) program, the situation is analogous to the prebuckling programs 

only if the eigenvalue shift y and the nonlinear load level Aq are both 

s 

zero.* The precise treatment of rigid body degrees of freedom depends on 
Whether or not the following loading condition is satisfied: 

(A) The shell is loaded by a live nonuniform pressure field \X 3 such 
that: 

(a) if n » 0, r’X 3x not identically zero, or 

(b) if n = 1, (r/R 2 )X 3 y is not identically zero. 

Condition (A) satisfied: If condition (A) is satisfied and either 

Aq or y is nonzero, then the harmonics n = 0 and 1 are treated no 
s 

differently than other harmonics, i.e., artificial rigid body constraints 
and column 30 of the case option card are not used. 

On the other hand, if both Aq = y - 0, sufficient artificial rigid 

s 

body constraint (s) must be specified to eliminate the rigid body freedom 
and the appropriate value placed in column 30 of the case option card. 

These artificial displacement conditions should be prescribed at a force- 
free boundary^ instead of specifying that the external force or moment 
resultant is zero (see p.23). For example, the boundary conditions 
5 « AQ = v = AMi = 0 would provide both translational and rotational 


*Ma thematically, nonzero Aq or y eliminates rigid body degrees of freedom 

s 

for SRA 201 much as an elastic foundation would for SRA 100. 

^ As discusses previously, boundaries on a closed branch other than the 
closure point, are excluded from this use (see p. 22). 
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constraints at a force-free boundary for both n = 0 and n - L The 
resultant force and moment reactions which are left unspecified will turn 
out to be negligibly small* 


In order that the program recognize artificial rigid body constraints, 
which must be removed if an automatic eigenvalue shift is made during 
execution, it is necessary to specify in column 3 of the corresponding 
card in the geometry table the type of artificial constraint prescribed* 
Also, only certain rows of the [D] matrix should be used for these 
constraints. In the special case of n = 1 buckling of a shell with only 
rotational rigid body freedom, in order that the proper rigid body mode 
be computed, it is also necessary to observe a similar rule for the real 
translational constraint. These rules are summarized in the table below. 


Constraint Col. 3 


Applicable Rows of [D] 
f n = 0 n = 1 


Real translational * 1 


any 


2nd 


, translational 4 

Artificial J rotational 5 

1 both 6 


1st 

3rd 

1st & 3rd 


2nd 
4 th 

2nd & 4th 


Note that the 1 is used in column 3 only if the constraint eliminates only 
one degree of rigid body freedom and the reaction is a pure force resultant, 
in which case the constraint equation involves only q and/or v, or a mixed 
resultant, in which case the constraint equation involves £ and/or x as 
well as q and/or v. 


Condition (A) unsatisfied: If condition (A) is unsatisfied and either 

Xq or y is nonzero (probably the most common case), artificial rotational 
s 

body constraint and column 30 cf the case option card are not used. 

However, translational rigid body constraint, whether actual or artificial, 
must be provided at some boundary. Translational rigid body constraint 
in this case has no effect on the solution as no reaction will be produced 
by it. 

If both Xq = y « 0, a translational rigid body mode (i.e. , a 1 or 3 
s 

in column 30 of the case option card) should not be specified even if the 
physical structure has translational rigid body freedom. In all other 
respects this case should be treated the same as when condition (A) is 
satisfied. 


Output Data 

Printed output .- The output data of the program consists of a print- 
out of the input data and computed results. Since the print-out of the 
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input data is self-explanatory, a discussion of it is unnecessary. 

For each elastic mode obtained the following results are output in 
the order listed: 

(1) the convergent sequence of eigenvalue estimates, P^* obtained 

in the iteration process, including eigenvalue shifts at the 
point they were made (the first one, which precedes the p- 
sequence, being the input value and the remaining ones being 
automatic shifts), 

(2) the next to last and the last estimates of normalized force 
(y)and displacement {z} modal amplitudes as functions of s 
(corresponding to the last two eigenvalue estimates), 

(3) the corresponding critical load Xi, and 

(4) a table of meridional (u) , circumferential (v) , and normal 
(w) modal displacement as functions of s. 


Numerical convergence is obtained when the relative difference 
between two successive estimates is less than 10"^, where N is the 
convergence index specified in column 32 of the case option card. It is 
noted that not only is the p-sequence convergent but also the ratios of 
successive differences of this sequence form a sequence which is con- 
vergent to the square of the ratio of the next larger eigenvalue P 2 (for 
the same value of n) to the one being sought. This fact allows, in many 
cases, a hand calculation of a rough estimate of |p 2 1 from the calculation 
of iii.:.* This secondary convergence is used to correct the last eigenvalue 
estimate obtained by the amount -A/(p - 1) to give pi before computing 

Xl -A q + P + Pi, where A is the difference between the last two estimates 
s 

and p is the last ratio of successive differences. 

The harmonic amplitudes of normalized modal forces P, Q, S, Mi and 
displacements £, n , v, x are printed out at each discrete input or 
interpolated value of s. The next to last as well as the last (best) 
estimate of the eigenmode is printed so that the degree to which the mode 
has converged may be checked. In general, the mode will have converged 
uniformly to roughly half as many significant digits as the eigenvalue. 


*In general, for SRA 201, the p-sequence does not reveal the sign of p£. 

If the initial equilibrium state is stable with respect to buckling in 

the harmonic considered and p = 0, then it can be shown that for large 

s 

k > Kk)i > i y (k+i)i- 
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The buckling mode is normalized so that the maximum value of its normal 
displacement w is unity* The table of u, v, w displacement amplitudes 
is derived from the last eigenmode table simply from the relations, 
u - (r/R 2 )£ + r f h, v « v, and w - -rV? ■+ (r/R 2 )n« 

Rigid body modes, if specified in column 30 of the case option card, 
are considered to be the lowest modes of the structure since their critical 
load is zero. Thus, for example, if for n - 1 a 3 is used in column 30 
and three modes are specified in column 26 of the case option card, only 
one elastic mode will be computed along with two rigid body modes. The 
printed output for rigid body modes is simply the modal displacement 
amplitudes { z) at each discrete value of s (the corresponding force 
amplitudes {y} are identically zero), followed by a statement that the 
corresponding critical load is zero. 

Optional output .- The program will punch two types of buckling mode 
data depending on columns 73 and 74 of the case option card. If column 73 
contains a 1, the buckling mode data deck required by SRA 202 is created. 

The first card of this deck gives the following three quantities: 

(1) the harmonic number n of the buckling mode in the first six 
columns in the format 16, 

(2) an indicator, applying only in the (unusual) case n = 0, in 
column 12; if 1, indicating a bending buckling mode; if 2, 
indicating a torsional buckling mode, 

(3) the difference between the bifurcation load level and the non- 
linear prebuckling state load level, X\ - Aq, in columns 13-24 in 
the format 1PE12 . 4 . 

The remaining cards of this deck give the values of the fundamental . 
variables P, Q, S, M^, 5, n, v, x of the buckling mode at each entry point. 
The number of these cards equals the maximum entry number , and each card 
gives all eight values for each point in the format 1P8E10.3. 

In column 74 contains a 1, a punched deck is produced which is a 
replica of the u, v, w printed output table. Each card contains the entry 
number, s, u, v, and w in that order in the format 15, 1PE13.4, 3E18.4. If 
both columns 73 and 74 contain 1, then this data deck will be punched first. 
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Sample Problem 


The illustrative problem for SKA 201 is a n - 2 buckling analysis of 
the branched shell described as the illustrative problem for SKA 200, Thus 
the standard prebuckling data deck obtained in that run is part of the 
input deck for this case. 

Input and output data listings for this problem are shown in Appendix B 
(p. 204). The input data deck is formed from the deck used for SKA 200. First, 
the case option card is modified in accordance with^ figure 11. Because of 
proximity of the eigenvalues corresponding to antisymmetric (Ax » 49.9) and 
symmetric (A 2 = 54.2) modes, the deck was set up with an eigenvalue shifts 
which greatly speeds up convergence. This value, 48.8, is shown in columns 
38-41 of the case option card. In actual practice, when analyzing a shell 
with a plane of symmetry, only one-half of the structure would be modeled, 
thereby automatically decoupling antisymmetric and symmetric modes. The 1 
is placed in column 73 of the case option card in order to punch the 
buckling data deck required by SRA 202. Second, the artificial rigid body 
constraint is removed by blanking column 5 of the final card of the 
geometry table and removing the corresponding eight cards from the boundary 
data. Finally, the standard prebuckling data deck from the SRA 200 run is 
inserted as a unit between the "9" card and the boundary data cards. 

In the output data listing, all data preceding the statement NORMALIZED 

DETERMINANT OF TERMINAL POINT MATRIX = 1.4838E-06 represents input data. 

This diagnostic is printed when this normalized determinant (i.e., the 

determinant divided by the product of its diagonal elements) is less than 

10“ 5 . The terminal point matrix becomes singular as y approaches Ax - Aq. 

s 

This is in accordance with the fact that lif the eigenvalue \x\ is zero, then 
(the (system of buckling equations itself (which the terminal point matrix 
represents) is singular. In the problem shown, y s = 48.8 and A x - A 0 • 48.9.' 
Since a loss of significance occurs if this determinant is too small, one 
icannot set the eigenvalue shift y as close as one pleases to the difference 

Ax “ Aq- As shown in the listing, the solution converged to the required 
four digits (specified by default in column 32 of the case option card) 
in three iterations. Following are the last two buckling mode estimates, 
the critical load, and the displacement amplitudes of the final mode 
estimate in shell coordinates, as described previously. This job took 18 
seconds of Central Processor time (starting from a relocatable binary 
form of SRA 201) on the CDC 6600 computer. 
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SRA 202 


This program is used to determine the initial postbuckling behavior 
and imperfection sensitivity of unique harmonic bifurcation buckling modes 
of axisymmetric torsionless prebuckling states. The buckling mode data 
may be computed and punched on cards by SRA 201. This data deck is 
inserted into the SRA 201 data deck, which then, with some minor modifica- 
tions, becomes the data deck for SRA 202. 

The program is based on Koiter’s first-order imperfection theory, 
which predicts the buckling load knockdown X s /X c due to a small imperfection 
in terms of the second postbuckling coefficient b and an imperfection 
functional a. This relationship is shown in figure 12, which is reproduced 
from reference 4. Figure 12 also includes the effect of a second imperfec- 
tion functional 3> although as noted in reference 4, the inclusion of 3 as 
calculated by SRA 202 is not a complete second approximation. Essentially, 
SRA 202 solves the differential equations for the second-order, contribution 
to the buckled state, which consists of an axisymmetric component and a 
harmonic component with twice the number of circumferential waves as the 
buckling mode. From this it computes the value of b, a negative value of 
which indicates an imperfection-sensitive structure, to which figure 12 
applies. The imperfection analysis is based on a mean square angular 
imperfection measure C 1 2 , which includes imperfections of both shell and 
rings. Values of a are computed by SRA 202 for both the imperfection shape 
which produces the greatest reduction in buckling load (i.e., maximum 
value of a) and the imperfection shape proportional to the buckling mode 
displacements. As an option, the values of 3 and the initial postbuckling 
stiffness K* also are computed by the program^ Using the calculated values 
of b, a, and 3, one may estimate from figure 12 the effect of small 
imperfections on the buckling load. 


Input Data 

The SRA 202 input deck is normally constructed from the SRA 201 input 
deck and the buckling mode data produced by it when column 73 of the case 
option card of the SRA 201 data deck contains a 1. The following steps 
should be taken in constructing the SRA 202 data deck: 

(1) If K* and 3 are not to be computed, the case option card from 
the SRA 201 run will serve, without modification, as the case 

option card for SRA 202 (fig. 13) , since the unnecessary data 
on it will simply be ignored. On the other hand, if K* and g 
are to be computed, a 1 should be punched in column 76 of the 
case option card. In this case, the additional prebuckling data 
deck (fig. 14 ^created by SRA 200 when its case option card 
contains a 1 in column 76, should be inserted to follow 
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immediately after the standard prebuckling data deck.* 

(2) Insert the buckling .mode data deck (fig* 15 ) between the pre- 
buckling data deck and the boundary data cards. 

(3) It may be necessary to specify n = 0 artificial rigid body 
constraint. Column 3 of geometry table cards is used for this 
purpose. This use of column 3 depends on the following two 
conditions : 

(A) The shell loading includes live normal pressure with 
r f X 3x not identically zero. This is the same as condition 
(A) defined in the SRA 201 manual for the case n = 0. 

(B) The quantity (r ? )' 2 Tj i + T 2 - (r 2 /R 2 )A c X 3 is identically 
zero. For dead loading the last term of the above 
expression is omitted. Here Ti and T 2 are prebuckling 
stress resultants at the ctitical load A c . Note that in 
many cases neither condition is satisfied [condition (B) , 
e.g., is satisfied for a membrane prebuckling state of a 
cylinder with live normal pressure loading] . 


The rules concerning this use of column 3 are the following: 

(i) If condition (A) is not satisfied, then axial rigid body 

constraint is required at some boundary. *** This may already be 
supplied by the real constraint £ = 0, if it exists. However, 
if not^ (e.g., all boundaries may be ring, dome, or force-free 
boundaries) , then for some boundary free of axial force the 
corresponding geometry card should contain a 4 in column 3* 
Furthermore, it is essential that at that boundary the first 
boundary condition (corresponding to the first row of [B] and 
[D]) should be AP « 0, as is the case for an internally generated 
force-free boundary. Note that a force-free boundary can always 


*In addition to being necessary for the calculation of K* and B, the 
additional pre buckling data also serves to correct the linear prebuckling 
perturbation state at Ag to the bifurcation load A c , thereby improving the 
evaluation of b and a. 

*^As noted previously, kinematic constraints cannot be specified at 
boundaries on a closed branch with the exception of the closure point 
(i.e. , the final entry) . 

^Except for a symmetrical ring boundary (an 8 or 9 in column 3) , none of 
the internally generated boundary conditions supply rigid body constraint. 
For SEA 202, the rigid body constraint provided by a symmetrical ring 
boundary is always £ = 0 , since the second-order component to the buckled 
state is symmetric even if the buckling mode is antisymmetric (see p. 21 ). 
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be made available for this purpose by inserting it as a 
fictitious boundary when setting up the original deck for the 
SRA 200 run. 

(ii) If condition (B) ±s_ satisfied in the first sub interval, then 
rotational rigid body constraint is required at some boundary. 
This may already be supplied by the real constraint v =* 0 if it 
exists. However, if not, for some boundary free of circum- 
ferential force the corresponding geometry card should contain 
a 5 in column 3. Furthermore, it is essential that at that 
boundary the third boundary condition (corresponding to the 
third row of [B] and [D] should be AS = 0, as is the case for 
an internally generated force-free boundary. 

If both artificial translational and rotational constraint are re- 
quired, column 3 of the geometry card for a force-free boundary should 
contain a 6. 

A common use of SEA 202 is to examine the imperfection sensitivity of 
several buckling modes in one pass through the computer. This is accom- 
plished by stacking several cases in sequence. For each case of a stack, 
a mimimum of three cards in addition to the buckling mode data deck is 
required. These are the title card, the case option card, and the "nine 11 
card signifying that no more input tables are to be read. 

In order to illustrate the deck set-up, let us assume that three 
buckling modes have been obtained using the same prebuckling data,*^ and 
that we wish to evaluate them in one computer run. Figure 16 shows the 
deck set-up for this type of problem. The set-up shown assumes that 
column 76 of the case option card contains a 1, since the additional 
prebuckling data deck is present. The case option card of the first case 
should have a 1 in each of columns 6, 8, 10, 12, 16, 18, and 20. The 
ease option card for the second and third cases should be left blank in 
columns 6* 8, 10, 12, 16, 17-18, and 20, as the corresponding data will 

automatically be taken from the previous case. However, in order that K* 
and 3 be computed, column 76 of each of these cards should contain a 1. 
Also, if the shell meridian contains a closed branch, column 4 of each 
case option card should contain a 1. 

If, on the other hand, the buckling modes are based on different 
prebuckling decks, the case option card should contain a 1 in column 18 
(assuming Aq £ 0) and the corresponding prebuckling decks should be input 
immediately after the "nine 11 card for each case. 


i*Since the prebuckling data consists of a nonlinear state and a linear 
perturbation about it, it is not necessary that a buckling load 
coincide with load level of the nonlinear state. 
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Output Data 


The output data of the program consists of a print-out of the input 
data and computed results . Since the print-out of the input data is 
self-explanatory, a discussion of it here is unnecessary. 

The first computed result, printed immediately after the input boundary 
data, is the value of the buckling mode inner product. If the additional 
prebuckling data is input, this value is corrected for the difference 
Xq - X 0 , and the corrected value is printed next. 

The next data printed are the computed values of the first and second 
imperfection parameters a and 3 for both the imperfection shape producing 
the maximum value of a and a buckling mode imperfection shape.* These are 
used along with the value of the postbuckling coefficient b (if negative) , 
to compute the buckling load knockdown (see fig. 12). In order to show 
the effect of the terms in the 3- formula which depend quadratically on 
prebuckling rotations, for each imperfection shape the value of 6 
neglecting these terms is also given. These values are printed on the same 
line and to the right of the correct 3-values. In the case of the buckling 
mode imperfection, the factor relating the root-mean-square angular 
amplitude (in radians) to the normal displacement amplitude is also printed. 

This data is followed by tables of the axisymmetric and unsymmetric 
components of the second-order postbuckling state. These components are 
presented in terms of the harmonic amplitudes of the basic force and 
displacement variables of the {y} and {z} vectors as functions of meridional 
distance. For the user’s convenience, immediately following these tables 
the displacement components referred to meridional, circumferential, and 
normal directions are tabulated as a function of meridional distance. 

After the data for the unsymmetric component of the second-order 
postbuckling state, the associated value of the second postbuckling 
coefficient b is printed. Finally, if column 76 of the case option card 
contains a 1, the values of the prebuckling and postbuckling stiffness 
at the bifurcation load are printed. 


Sample Problem 

The illustrative problem for SRA 202 is an anlysis of the imperfection 
sensitivity of the n = 2 buckling mode obtained in the sample problem for 
SRA 201. Thus the buckling mode data deck obtained in that run is part of 
the input data deck for this case. 


*As noted previously, the computation and printing of 3 is optional 
depending on column 76 of the case option card. 
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Input and output data listings for this problem are shown in Appendix B 
ft>* 223). The input data deck is formed in two simple steps from the deck used 
for SRA 201. First, the buckling mode data deck is inserted between the 
prebuckling data deck and the boundary data cards. Second, since neither 
condition (A) nor (B) is satisfied (dead loading has been assumed) , and 
the structure has no real rigid body constraint, it is necessary to punch 
a 4 in column 3 of a geometry table card at a force-free boundary. This 
is done at the final entry, corresponding to the closure point of the 
closed branch. Since K* and fare not being computed, it is unnecessary 
to change the case option card and there is no additional prebuckling 
data deck. 

In the output data listing, all data preceding the inner product value 
represents input data. Note that for the imperfection shape proportional 
to the buckling mode displacements, the factor relating its maximum normal 
deflection to its root-mean-square angular deflection is printed. _ Thus, 
in this example, if inches have been used as the unit of length, § = 0.001 
rad corresponds to a maximum normal deflection of 0.0019 in. 

After the print-out of the axisymmetric component of the buckled 
state, there is the diagnostic print-out "NORMALIZED DETERMINANT OF 
TERMINAL POINT MATRIX = 5. 2192E-08. " This small determinant was 
encountered in computing the unsymmetric (n = 4) component and indicates 
that the corresponding system of equations is almost singular, in 
consequence of the proximity of the lowest critical load for n = 4 (48.6) 
to that for n = 2 (49.9). In spite of this, the results obtained are 
valid, as may be verified by treating the half-shell using symmetry con- 
ditions at the artificial edges. (As noted on pages 47 and 57, in 
actual practice, only the half-shell would be modeled.) For the half- 
shell, the system of equations for the n = 4 component is well-conditioned, 
since the n = 4 critical load of 48.6 corresponds to an antisymmetric 
mode, which is suppressed by the symmetry edge conditions.* The symmetric 
n = 4 buckling mode has a critical load of 138.8, which by virture of its 
remoteness from the n = 2 value of 49.9, causes no trouble. This job took 
19 seconds of Central Processor time (starting from a relocatable binary 
form of SRA 202) on the CDC 6600 computer. 

Since the value of b (printed after the unsymmetric second-order 
component) is negative, the buckling mode is imperfection-sensitive. The 
reduction in critical load due to small imperfections may therefore be 
estimated from figure 12 using the computed values of b and a. For this 
first approximation, g should be taken as zero. 


*As already noted, for structures which have a plane of symmetry about 
which the loading is also symmetric, the second-order buckling state 
is symmetric for either symmetric or antisymmetric buckling modes. 
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SRA 300 


This program is used to determine the asymmetric (harmonic) free 
vibration modes about nonlinear axisymmetric torsionless equilibrium 
states. The initial equilibrium state may be computed by SRA 200 and 
saved as a permanent file. This data file is denoted as the standard 
prebuckling data in the discussion of SRA 200 (p. 45). It is inserted into the 
SRA 200 data deck, which the, with some minor modifications, becomes the 
data deck for SRA 300. The load level Aq used in creating the prebuckling 
data is the load level of the prestress about which the structure vibrates. 

SRA 300 is an eigenvalue program and as such is analogous to the 
buckling program SRA 201. In this analogy, the structural mass data 
replaces the linear perturbation prebuckling state data, which, although 
included in the standard prebuckling data deck, is not used by SRA 300. 

As for SRA 201, the effect of changes in magnitude and direction of live 
pressure loads are included. 

For each harmonic, in principal, any number of modes may be requested. 
There is, however, a practical limit to the number of modes attainable, 
usually of the order of 10, and this is discussed further below. In 
general, the vibration modes will be obtained in the order of increasing 
magnitude of the corresponding eigenvalues (square frequencies) starting 
with the smallest. Both mode o r t ho g onali z at ion and automatic eigenvalue 
shifting are used in obtaining higher modes. 


Input Data 

The input deck for SRA 300, if run with prestress, is normally 
constructed from the SRA 200 input deck and the standard prebuckling data 
deck created by SRA 200 when column 73 of the case option card of the SRA 
200 data deck contains a 1. If vibrations about the unstressed state are 
desired, the prebuckling data deck is omitted and the case option card 
changed accordingly. In this case, of course, it is not necessary to run 
SRA 200 first. The following steps should be taken in constructing the 
SRA 300 data deck: 

(1) Insert the standard prebuckling data deck (fig. 10) as a unit 
between the "nine 11 card (following the input tables) and 
boundary data cards. 

(2) Since table 7 is not used by SRA 300, it may be removed from the 
SRA 200 deck. However, this step is optional, and if present, 
this table will be ignored by the program. 
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(3) If mass densities are not included in the SRA 200 data deck, 
then a table 5 of mass densities (see SRA 100 user’s manual 
for format) should be inserted. Also, the mass density p and 
elastic modulus E of each ring must be input in columns 13-25 
and 26-38 respectively, on the third data card for each ring 
(fig. 4). 

(4) In the case of a nonuniform live pressure field, table 6 should 
contain the pressure derivatives X 3x and X 3 „ in E12.4 format in 
columns 49-60 and 61-72, respectively. In order to avoid 
overlooking this step, it is suggested that this data be 
included in table 6 cards at the time of original preparation. 

(5) Modify the case option card (see below) . 

(6) Remove any artificial rigid body constraint which may have been 
imposed in the SRA 200 run. Generally, this is done by blanking 
column 5 of the appropriate card in table 1 and removing the 
corresponding set of eight boundary cards from the deck. The 
cases of n = 0 or 1 may require special consideration with 
respect to rigid body constraints and are discussed further below. 

(7) For a structure with a plane of symmetry normal to the axis of 
revolution, both symmetric and antisymmetric vibration modes 
exist. For an efficient solution, only one-half of such a 
structure should have been modeled in setting up the SRA 200 run, 
with symmetry conditions imposed at the artificial edge(s). If 
an antisymmetric mode is desired, it is necessary to: (a) change 
the 8 in column 3 of the geometry table card at a symmetrical 
ring boundary to a 9, and/or (b) change prescribed boundary 
conditions at a symmetry edge from g = AQ = x = 0 to 

AP = n = v = AMi = 0. 

Except for step 3, these are the same steps taken to construct the SRA 201 
data deck from the SRA 200 deck. 

Case option card .- This is similar to the case option card for SRA 201 
and is required for each case (fig. 17). Differences in this card for 
SRA 300 relative to that for SRA 201 are noted below. 

Column 14 now contains the indicator for the mass densities table (as 
it does for SRA 200). 

Column 18 contains the indicator for the initial state data. When set 
equal to 2, no initial state data is input, and vibration modes about the 
natural unloaded state will be calculated. 
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Columns 25-26 contain the number of modes (£99) desired. In contrast 
to SKA 201, for SKA 300 an extra card of eigenvalue shifts is not input 
when more than one mode is specified. 

Column 30 is used to specify rigid. .body modes. As for SKA 201, it 
is not used with a nonzero eigenvalue shift. However, under certain 
conditions (see below) , it may be used to specify a translational rigid 
body mode with a nonzero value of Aq. 

Columns 36-47 contain the input eigenvalue shift. In contrast to 
SKA 201, this is the only shift input, applying to higher modes as well as ' 
the first until an automatic shift is made. Note that for SKA 300 the 
eigenvalue represents the square of the frequency. 

As previously mentioned, both eigenmode orthogonalization and auto- 
matic eigenvalue shifting are used to obtain higher modes (as specified 
in columns 25-26). The first six or fewer modes are obtained by storing 
all the preceding modes and orthogonalizing with respect to them after 
each step of a S todola- type t iteration. For modes higher than the sixth, 
orthogonalization is performed only with respect to the last five modes 
obtained (ones previous to these are not retained); however, prior to the 
iteration for these modes an eigenvalue shift is made either to: (1) an 

estimate of the next eigenvalue to be computed, or (2) the last eigenvalue 
obtained. The first shift will be made if column 76 is left blank, 
whereas the second shift will be made if a 1 is inserted in column' 76. It 
may be noted that although the first shift is the most desirable from the 
point of execution time and accuracy of the mode to be obtained, the 
estimate used is not always reliable, so that the second shift is a safer 
approach. It should also be noted that eigenvalue shifts change the shell 
characteristic length, which determines how long a sub interval can be 
without suffering a serious degradation of numerical significance. Fdr 
any particular choice of shell segmentation, this fact will limit the 
number of higher modes obtainable, the diorter the shell segments, the more 
modes can be obtained. 

A common use of SKA 300 is to compute the vibration modes for several 
different harmonic numbers of a given structure with a given prestress in 
a single pass through the computer. This is accomplished by stacking 
several cases in sequence. For each case after the first, only three data 
cards are required. These are the title card, case option card, and the 
"nine" card to signify that no more input tables are to be read. 

Vibrations in the harmonics n - 0 and l .r- Before discussing special 
aspects of n = 0 and 1, some general remarks concerning boundary conditions 
may be helpful. 

In general, for n > 2, the boundary conditions are treated automatically 
for each of the four types (force-free, ring, prescribed matrices, and 
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dome closure) of boundaries used in the SRA 200 run when the rules for 
setting up the deck given earlier are followed. Nonhomogeneous load 
vectors { L} input at prescribed boundaries with [B] and [D] matrices are 
simply ignored by SEA 300 in accordance with the fact that the eigenvalue 
problem is homogeneous. Usually at these prescribed boundaries, the 
perturbation force reactions A{y} are workless, although conservative 
reactions associated with the idealized case of a massless elastic 
attachment are allowed. Workless reactions occur when there are three 
mutually perpendicular directions for which either the corresponding 
force or displacement component is zero, and either the meridional bending 
moment AH| or rotation x is zero. The simplest examples of workless reactions 
occur when the three directions are axial, radial, and circumferential; 
however, workless reactions using meridional, normal, and circumferential 
directions are common. 

Rigid mass attachment: In some cases, the effect of an axisymmetric 

rigid mass attachment on the vibrations is important. Since a rigid mass 
cannot deform in the harmonics n > 2, for these harmonics it produces the 
effect of a clamped boundary and decouples the parts of the structure 
which are not connected except at the rigid mass boundary. On the other 
hand, since the harmonics n = 0 and 1 include rigid body motions, it is 
important in these cases to be able to model a rigid mass. The ring logic 
can be used for this purpose by the artifice of inputting very large values 
for certain ring rigidities. For n = 0, EA and El should be given very 
large values, say 10^8 , whereas for n - 1, the combinations Ely + GJ and 
EAa~ + EI X should be given very large values. Such a ring simulates a 
rigid mass with the following dynamic properties: 

M = ,27T.apA 

Iq = 2iTap (a 2 A 4* I x ) 

1 1 = Ma 2 / 2 + Trap (I x + 2Iy) 

where M is mass, Iq is the mass moment of inertia about the axis of revolu- 
tion, Ii is the mass moment of inertia about a lateral axis through the mass 
center, and a is the radius of the ring centro idal axis. Note that the 
center of mass of the simulated rigid mass lies in the plane of the ring 
centroidal axis, which, along with the radius a, is determined by the 
input normal and meridional eccentricities z and §. Also, when simulating 
a rigid mass the ring cross-sectional inertias I x and ly need not be 
positive as long as the rigidity conditions are satisfied and the dynamic 
properties are correct. 

Rigid body degrees of freedom: IE the structure possesses rigid 

body degrees of freedom, it may be necessary, in the cases n = 0 and 1, 
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for the user to specify artificial rigid body constraints, as well as 

observe other special rules. These rules have been discussed in the 

SRA 201 manual (p. 53). As presented there, they depended on whether or not 

the loading condition (A) is satisfied and whether or not the nonlinear 

state load level Xq and the eigenvalue shift are zero. For SRA 300, the 

situation is similar to that for SRA 201, the main difference being that 

nonzero y may have a different effect than nonzero Xq. Specifically 
s 

for SRA 300, if y s 4 0 then the harmonics n “ 0 and 1 are treated no 

differently than other harmonics, regardless of condition (A). Thus, in 

this case artificial rigid body constraints and column 30 of the case 

option card are not used. Only is y - 0, must condition (A) and Xq be 

s 

considered.* The pertinent rules for y = 0 are summarized in the table 
below. b 

Rigid body 


la 

Condition (A) 

constraint required 

Col. 30 

= o 

not considered 

trans. and rot. 

nonzero 

* o 

satisfied 

none 

blank 

+ 0 

unsatisfied 

translational 

blank or 1 


The only difference here with the corresponding rules for SRA 201 concerns 
the case of unsatisfied condition (A). For this case, a translational 
rigid body mode is never indicated in column 30 for SRA 201. For SRA 300 
real translational freedom must be indicated in column 30. 


Output Data 

Printed output .- The output data of the program consists of a print- 
out of the input data and computed results. Since the print-out of the 
input data is self-explanatory, a discussion of it is unnecessary. The 
remaining printed output is analogous to that of the buckling program SRA 
201 and is briefly described below. 


*Since a small eigenvalue shift can always be used, one can always avoid 
special treatment of n = 0 and 1. However, when the unstressed initial 
state is used and rigid body degrees of freedom exist, too small an 
eigenvalue shift may result in convergence to an uninteresting rigid body 
mode. 


67 




For each elastic buckling mode obtained, the program prints first the 
sequence of eigenvalue estimates P(k) obtained in the iteration process.* 
The eigenvalue shifts used are shown at the point they were made, the 
first one which precedes the y-sequence being the value input and the 
remaining ones interspersed in the y-sequence being automatic shifts. 
Numerical convergence (at which point the calculation procedure for the 
mode in question is complete) is obtained when the relative difference 
between two successive estimates is less than 10~ N , where N is the con- 
vergence index specified in column 32 of the case option card. 

Following the converged y-sequence are two tables of the harmonic 
amplitudes of the shell modal forces P, Q, S, Mi and displacements C,n,v,x 
as functions of the meridional distance s. These tables are the eigenmode 
estimates after the last two iterations, the second table being the last 
(best) estimate. In general, the eigenmode will not have converged to as 
many significant digits as the eigenvalue. The vibration mode is 
normalized so that its inner product with itself (i.e., the work of its 
associated inertial forces acting through its own displacements) is unity. 

Following the second eigenmode table is the corresponding natural 
frequency (in radians per unit of time) . This value is the square root 
of the sum of the converged (corrected) value of the y-sequence plus the 
last eigenvalue shift, i.e., w - (yi 4- y s )l/2. After the frequency, is 
printed a table of harmonic amplitudes of modal displacements (u, v, w) in 
meridional, circumferential, and normal shell coordinates. 

Optional output .- If column 74 of the case option card contains a 1, 
a punched deck is produced which is a replica of the u, v, w printed output 
table. Each card contains the entry number, s, u, v, and w in that order 
in the format 15, 1PE13.4, 3E18.4. 


Sample Problem 

The illustrative problem for SEA 300 is a calculation of the funda- 
mental n = 2 vibration mode about the nonlinear equilibrium state computed 
in the SEA 200 sample problem. Thus, the standard prebuckling data deck 
obtained in that run is part of the input deck for this case. 


*If the initial equilibrium state is stable with respect to buckling in the 
harmonic considered (i.e., Xq < A c ) and no eigenvalue shift is used, then 
the sequence of eigenvalue estimates is theoretically monotonically de- 
creasing. With a nonzero eigenvalue shift the sign of the next larger 
eigenvalue \i2 will be the same as the sign of successive differences 
y (k)~y (k-fi) fo r sufficiently large k. Since the ratio of successive 
differences converges to (y 2 /yi) 2 , in many cases y 2 can be estimated from 
the sequence for yi . 
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Input and output data listings for this problem are shown in Appendix B 
(p. 248). Except for the requirement of adding a mass density table to 
the data deck and some differences in the case option card, the input 
deck is identical to that used for the SRA 201 sample problem. The common 
steps in forming this deck from the SRA 200 data deck are: (1) the removal 

of the aritifcial rigid body constraint at the final entry, and (2) the 
insertion of the standard prebuckling data deck from the SRA 200 run 
between the t, 9 11 card and the boundary data cards. 

Because of the proximity of the frequencies corresponding to symmetric 
(o)i - 132.1) and antisymmetric (u >2 = 175.6) modes, it is advisable to use 
an eigenvalue shift to speed up the convergence to the lowest mode. The 
shift u) 2 - 1.7x10** is used and is shown in columns 43-47 of the case option 
card. In actual practice, only one-half of the symmetric structure would 
be modeled, thereby decoupling the antisymmetric and symmetric modes. 

In the output data listing computed results follow the printing of the 
eigenvalue shift. As shown, the solution converged to the required four 
significant digits (specified by default in column 32 of the case option 
card) in three iterations. Following are the last two normalized vibration 
mode estimates, the frequency, and the displacement amplitudes of the 
final mode estimate in shell coordinates, as described previously. This 
job took 9 seconds of Central Processor time (starting from a relocatable 
binary form of SRA 300) on the GDC 6600 computer. 
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APPENDIX A 


ADDITIONAL PROGRAM DOCUMENTATION 


This appendix consists of program details necessary to modify the 
programs but unnecessary for their use. It is organized into six main 
sections, one for each program. Each of these sections contains: (1) a 

description of external files used, (2) an overall logical flow chart, 
(3) brief descriptions of contractor-supplied subprograms peculiar to 
each program, and (4) a glossary of major FORTRAN variables peculiar to 
each program. This is followed by two additional sections giving brief 
descriptions of contractor-supplied subprograms and a glossary of major 
FORTRAN variables common to at least two of the programs. 


SRA 100 


External files .- SRA 100 uses three external files: TAPE 2, TAPE3, 

and PUNCH. TAPE 2 and TAPE3 are the standard input and output files, 
respectively. At the user's option, prebuckling state data required for 
SRA 101, and shell primary stress amplitudes (a s ,a 9 o s< k) may be written 
onto PUNCH. r 

Overall logical flow of SRA 100 .- Essential features of the overall 
flow of SRA 100 are listed below. 

SRA100 (MAIN PROGRAM) 

Call INPUT 

INPUT 


Read 

Read 

FN « 


and write case title card. If end-of-file, stop 
case option card: LOOP, NSG, NWP, NFM, NST, NMD, NML, NTL, NIC, 

NASE, NDER, SFL, RTABL, ISSl, ISS2, ISS6 

|nase| 


Read basic input tables 

Geometry: N0UT2, N0UT1, N0UT3 , TS, TR, TRP, TRR2, TXB 

Wall properties: TE1, TE2, TE12, TNU1, TH 

Foundation moduli: TK1 , TK2, TK3 

Stringer properties: TEST, TEAST, TEIST, TGJST, TZBST 

Mass densities : TRHOM 

Mechanical loads: TX1, TX2, TX3 

Thermal loads: TTH1, TIH2, TDTH1 , TDTH2 , TTHST 

Call SETUP to construct geometric parameters: NDIS, TDIS, JENT, IBR, 

IEND , KEND 


NBR, 
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Write input tables 

If NASE < 0, change sign of TX2(I) for antisymmetric response option 
If NIC « 0, make NOUTl-table negative at all boundaries except dome 
closures (to indicate boundary data comes from previous case) 

Call BC to read or generate boundary matrices BBP, BD, and SL for each 
boundary 

If present case has rigid body degrees of freedom (NDER ^ 0 and FN < 1.), 
call RBMODE to calculate rigid body acceleration and correct ring and 
dome boundary conditions for inertial loads. 

If complementary solutions of previous case apply, set KASE = 2 ; 
otherwise KASE = 3 

Calculate initial scale factors required for START 
Return 

SRA1Q0 

If KASE =3, calculate and store the complementary and particular 
solutions. Otherwise, calculate and store only the particular 
solution (in which case complementary solutions from previous case 
will be used) 

Combine complementary and particular solutions to obtain static response 
vectors Y, Z 

If NASE <0, change sign of FN, TX2, and 3rd (shear) components of Y 
and Z for antisymmetric response option. 

Write Y and Z for each entry point 

If IS SI # 0, compute and punch hoop forces for each ring 
Set up DO-Loop over entry points for calculation of the stress resultants 
and stresses 

1. Compute partially inverted shell wall rigidities, and mass and 
thermal moments through shell wall 

2. Correct surface loads by the inertial loads of rigid body 
acceleration 

3. Correct surface loads by elastic foundation loads 

4. Calculate stretching and bending strains and stress resultants 
and couples 

5. If ISS1 £ 0, punch normal shell stress resultants 

6. Calculate from differential equations the force and displacement 
derivatives, and from these the derivatives of the stretching 
and bending strains 

7. Calculate the stress (SIGST) at the stringer centroid 

8. Set up DO-loop over shell wall layers 

a. Calculate from the stress-strain relation the primary 
shell stresses (SIG1, SIG2, SIG12) at wall layer faces 

b. Calculate, by integration through the shell thickness of 
the appropriate three-dimensional equilibrium equations , 
the transverse shear stresses (SIG13, SIG23) at wall 
layer interfaces and midpoints 

c. Write normal deflection and stresses 
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d. If ISS2 / 0, punch primary shell stresses at wall layer faces 

e. End of DO-loop over wall layers 
9. End of DO-loop over entry points 

If ISS1 ^ 0, punch shear stress resultant and normal pressure at entry 
points 

Call INPUT for next case 

Subprogram descriptions for SRA 1QQ .- SRA 100 consists of twenty 
contractor-supplied subprograms (fig. 18 ) . Those subprograms which have 
features special to SRA 100 are described below. For descriptions of the 
remaining subprograms of SRA 100, which are also used by other programs, 
see page 121. 

SRA100 


This is the main subprogram of SRA 100. Its essential functions are 
to set up the integration of the differential equations, combine the 
complementary and particular solutions for the force {y } and displacement 
{z} responses, and calculate from them the stresses and stress resultants. 
It is described in more detail in the overall logical flow chart of 
this program. 

INPUT 


This subprogram (and its subroutines) reads and writes all of the 
input data, and prepares the boundary conditions. It is described in 
more detail in the overall flow of this program. 

PR0D1 (Z,Z1) 

This function, which is called by RBMODE , calculates two shell 
functionals: (1) the shell contribution to the inner (scalar) product 

of two rigid body modes Z and Zl (when MFLAG = 0), and (2) the work of 
the external surface loads with a rigid body mode Zl (when MFLAG = 1) . 

The parameter MFLAG, set in RBMODE, determines which use of PROD 1 is 
meant. In the second use, the first formal parameter Z in the calling 
sequence is ignored by PR0D1 and the surface loads are obtained from 
blank COMMON. The integration over the shell meridian is performed by 
Simpson f s rule. The ring contribution (PR0D2) to each functional is 
calculated in RBMODE and added to PR0D1. An approximate contribution 
to each functional oyer the small deleted cap at dome closure boundaries 
is included in PR0D1. 

RBMODE 

If the structure has rigid body degrees of freedom, INPUT call RBMODE 
to: (1) calculate the rigid body acceleration, (2) calculate the 
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pertinent rigid body dynamical properties of the structure, and (3) 
correct the ring and dome loads for the effect of inertial loads. The 
displacement field of the rigid body acceleration is stored in the 
array ZM1, which is used by DER to calculate the inertial surface forces 
and moments. 

The calculation of the rigid body dynamics is based on the fact that 
the inner product of two displacements fields is proportional to the work 
of the inertial loads of one field acting through the displacements of 
the other. If one of the fields is a unit rigid body translation (or 
rotation) , the inner product gives essentially the force (or moment) 
resultant of the inertial loads of the other. Since the inertial loads 
of a unit rigid body translational acceleration have a resultant force 
equal in magnitude to the total structural mass M, the inner product of 
the unit translation with itself gives M (within a factor of it for n = 1 
or 2 tt for n = 0). Similarly, the inertial loads of a unit rigid body 
rotational acceleration have a resultant moment equal in magnitude to 
the total mass moment of inertia I about the axis of rotation, and so 
the inner product of a unit rotation with itself gives I. Noting that the 
resultant inertial force M of a unit rigid body translation acts through 
the center of mass, it follows that tile inner product of the unit lateral 
translation with a unit lateral rotation gives the first mass moment about 
the axis of rotation, which divided by the mass gives the location of 
the center of mass. 


On the other hand, if the inertial loads of one argument of the inner 
product are replaced by the external loads, and the other argument is 
a unit rigid body translation (or rotation) , then one obtains the resultant 
force (or moment) of the external loads. The corresponding acceleration 
magnitude is simply the resultant force (or moment) divided by the mass 
(or mass moment of inertia) . 


Major FORTRAN variables of SRA 100 .“ Major variables which have 
special meaning for SRA 100 are defined below. For SRA 100 variables which 
are common to other programs, see page 126. 

Subprogram 

Variable Definition where generated 

ISS1 flag to punch prebuckling INPUT 

data for SRA 101 


NML 


flag for mechanical loads table 


INPUT 


NTL 

TX2(100) 

T12(100) 


flag for thermal loads table 
circumferential surface load (X 2 ) 
shear stress resultant (T} 2 ) 


INPUT 

INPUT 

SRA100 


ZM1(4 ,100) 


displacement mode ($,n,v,x) of rigid ' RBMODE 
body acceleration 
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SEA 101 


External files . - SEA 101 uses twelve external files, nine of which 
are nonstandard files. In order to understand their structure, the 
following discussion is presented before describing their usage. 

The force and displacement variables used in the program are expanded 
into Fourier series having both cosine and sine components at each 
meridional point. This means that if LSTAB entry points and N2 harmonics 
are used, the size of a displacement or force vector is 2 x N2 x LSTAB. 

Because of limitations on core storage it is impossible to have all 
the force and displacement vectors that are needed for all the calculations 
simultaneously in core. Consequently, most of these vectors are stored 
on external files and transferred into core when they are needed in the 
calculation process . 

The files which are available to the program are assumed to be of the 
sequential type (no random access). This means that if the data that is 
to be transferred from a file to core for one calculation is scattered in 
different places on the file then the program has to transfer into core 
not only the relevant data but also everything that happens to be located 
in between. From the standpoint of efficiency, it is, therefore, important 
to store data on the files in the same arrangement as it is needed for 
the calculations. If some variables are needed in different groupings for 
different calculations it may be more efficient to store them more than 
once on different files in different orderings. 

For the calculations done by this program there are two basic order- 
ings of the data. In the integration of the differential equations each 
harmonic is integrated separately, so the program uses and produces all 
the relevant forces and displacements for one harmonic at a time. In 
the calculation of equivalent forces and the scalar product the program 
calculates the product of one displacement vector by one force vector 
at a time. Only two variables have to be in core simultaneously, but 
all the harmonics of these two variables are needed. 

The above two requirements, result in two modes of storage for almost 
all variables. In the first mode- iha^variables are stored in "block" form. 
Each variable is stored by itself t - all the cosine amplitudes for the 
first entry point followed by all the cosines for the second entry point 
and so on until the last entry point. Following all the cosine amplitudes 
come all the sine amplitudes in the same order. For a variable V stored 
in a block form, V(JCl) is the location of the Jth cosine component at 
the Ith entry point and V(JSI) is the corresponding sine component; JCI 
and JSI are given by 

JCI - (I - 1)*N2 + J 

JSI « JCI + N2 * LSTAB 
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The second storage mode, the "harmonic" form, is used when a group of 
variables, e.g. , XI, ETA, V, are needed, one harmonic at a time. In this 
form, the cosine amplitudes of one harmonic for all entry points are stored 
for XI (the first variable) followed by the sine amplitudes of XI, the 
cosine amplitudes of ETA (the second variable) and so on until the sine 
amplitudes of V (the final variable). This group is then followed by 
a similar group for the next harmonic. Thus, if all N 2 harmonics of a 
group of K variables are stored in an array B, then B(IJLC) is the 
address of the Jth cosine component at the Ith entry point of the Lth 
variable and B(IJLS) is the address of the corresponding sine, where 

IJLC = 2 * (J-l) * K * LSTAB + 2 * (L-l) * LSTAB + 1 

IJLS = IJLC + LSTAB 


The usage of external files is given by the following table. 


Logical 
unit no , 

Usage 

Variables 

Storage 

mode 

Subprogram 

where 

created 

i 

prebuckling data 

Tl»T 2 »Ti 2 »X 3 ,T((j 

block 

MAIN 6 

ICOMP 

boundary condition 
and complementary 
solution matrices 

[B],[D],[U],[W], 
IV], [Z] 

harmonic 

MAIN 1 

3 

response variables 

X» e l + ®2 
or 6 ,jJj 

harmonic 

block 

MAIN 1 

CALCUL 

M 4 

equivalent forces 
(shell, rings, 
and domes) 

Fl.F2.F4.F3 

FLi.FL2.FL3 

FDi.FD30.FP3i.FD4 

block 

block 

EQIFOR 

EQIFOR 

EQIFOR 

5 

standard input 
file 




6 

standard output 
file 




7 

standard 
overlay file 




8 

psuedo forces or 
equivalent forces 

Xi .X2.-L2.L1 
or F1.F2.F4 

block 

harmonic 

FORCES 
MAIN 3 

9 

response variables 

c.n.v 
or ?,n,v 

harmonic 

block 

MAIN 1 

MAIN 4 
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Logical 
unit no. 

Usage 

Variables 

Storage 

mode 

Subprogram 

where 

created 

10 

basic structural 

COMMON/TAB/ 

< j; mm 

INPUT 


data, axisymmetric 

TijiajXs.Tj, 

COMMON/M/ 


PREB 


bending prebuck- 

— 

MAIN6 


ling components, 
harmonic inter- 
action data 

11 response variables 

or equivalent 
forces 

ISCR scratch file 

The nominal values for ICOMP, M4, and ISCR are 2, 4, and 12. How- 
ever, as explained on page 34, for a case (other than the first) in a 
one-pass sequence of cases it is possible for ICOMP to be 12, in which 
event ISCR is 2. For a case of equal and opposite eigenvalues, M4 
alternates on successive iterations between the values 4 and ISCR, since 
in this case it is necessary to compute the scalar product of the 
displacements of each iteration by the forces of the iteration before 
the last. In all other cases M4 equals 4. 

The prebuckling data on file 1, the response variables on files 3, 9, 
and 11, and the forces (except dome forces) on files M4, 8, and 11 are 
"packed" data. That is, blank words for problems which do not require the 
maximum allowable dimensions are not transferred from core to external 
file. In some cases a variable does not have two components for each 
Fourier harmonic. This is the case for the prebuckling data on file 1 if 
the loading has an axial plane of symmetry. It is also true for the 
matrices on file 2, since this data calculated for the symmetric response 
components is also used for the antisymmetric components. Some of the 
variables shown are not stored for all problems: (1) [V] , [Z] are 

stored on file 2 only for closed branch problems, (2) ring forces FLi., FL 2 , 
FL 3 and dome forces FD^ , FD 3 q, FD 31 , FD 4 are stored on files M4 and 11 only 
if at least one ring or one dome exists, and (3) the axisymmetric bending 
prebuckling components are stored on file 10 only if a nonzero eigenvalue 
shift is used. 

Overall logical flow of SRA 101 .- This program consists of a main 
overlay and seven primary overlays (fig. 19 ). The overall flow of the 
main overlay is listed below with brief descriptions of the function of 
each primary overlay when called. Following this are more detailed flow 
charts of each primary overlay. 


X, e : i 4* e 2 block MAIN4 

u x ,Uy,UA block CALCUL 

FD 1 ,FD 3 o,FD 31 ,FD 4 — MAIN 3 

F 3 , FL 1 , FL 2 , FL 3 harmonic MAINS 
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MAIN 


1. Initialize the complementary solution file ICOMP to unit 2, the 
scratch file ISCR to unit 12. Initialize NSG to -10 (indication 
of a first case) 

2. Call OVERLAY 7 (INPUT) 

OVERLAY 7 

Read and write input data 

Set up control parameters and tables (geometry, wall properties, etc.) 
Transfer structural data to file 10 

3. Call OVERLAY 6 
OVERLAY 6 

If new prebuckling data is needed, read and write it and transfer it 
to file 1 

If GUESS (eigenvalue shift) is nonzero, transfer axisymmetric 
torsionless prebuckling state data to file 10 
Calculate harmonic interaction data for Fourier products and transfer 
this data to file 10 

4. Initialize eigenvalue estimates to 1. Initialize the equivalent 
forces file M4 to unit 4 

5. Set up iteration DO-loop with index (IT) running from ITO to ITF 

a. Call OVERLAY 1 

OVERLAY 1 

If IT is 1, calculate complementary solutions and boundary 

conditions, and generate an initial guess for displacements. 
If IT is not 1, calculate a new approximation to the 
buckling mode based on the forces from the previous iteration 
The quantities ?, r\ 9 v are written out on file 9 and x» e l + 
on file 3 for each harmonic 

b. Call OVERLAY 4 
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OVERLAY 4 


Rearrange 5, q , v, x > ©l + e 2 into block form and calculate 
from them the shell rotations 0, ip and ring displacements 

u x> V U <f> 

Write 5, n, v on file 9, x, &1 + ^x> Uy, u^ on file 11, 

and 0, ip on file 3, all in block form 

c. If this is not the first iteration (or the first or second in 
case of equal and opposite eigenvalues), call OVERLAY 2* 
Otherwise, go to step e 

OVERLAY 2 

Calculate the scalar product for the numerator of the Rayleigh 
quotient 

d. Set the numerator of the Rayleigh quotient equal to the scalar 
product 

e. Call OVERLAY 5 
OVERLAY 5 

Calculate the equivalent shell, ring and dome forces based on 
the displacements calculated at step a. Write these forces 
in block form on file M4 

f . If this is not the first iteration (or the first or second in 
case of equal and opposite eigenvalues), call OVERLAY 2. 
Otherwise, go to step h 

OVERLAY 2 

Calculate the scalar product for the denominator of the Rayleigh 
quotient 

g. Calculate the Rayleigh quotient (eigenvalue estimate) and its 
relative difference with that from the previous iteration. 

Print the Rayleigh quotient, relative difference, and iteration 
number. If this is not the first calculation of the Rayleigh 
quotient and if the relative difference is within the required 
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accuracy,* go to step 7. Otherwise call OVERLAY 3 
OVERLAY 3 

Rearrange the shell and ring forces from block form into harmonic 
form, putting Fj , F 2 , F 4 on file 8 and F 3 , FL X , FL 2 , FL 3 on 
file 11 

h. In the case of equal and opposite eigenvalues, change the 
equivalent force file M4. If M4 is 4, change it to ISCR and 
vice versa 

i. End of iteration DO-loop 

6 . Go to step 2 

7. If NSGS < 0, a second run follows which will use the forces from 
this run as an initial guess, so call OVERLAY 3 to rearrange the 
forces into harmonic form 

8 . Go to step 2 

Logical flow of OVERLAY 1: 

1. Read structural data from file 10 

2. Calculate scale factors required by subroutine START 

3. If GUESS ^ 0, read axisymmetric bending prebuckling data from file 10 

4. If IT is greater than one, go to step 10 

5. If ISS 6 - 2, go to step 8 

6 . Set up DO-loop to create file ICOMP containing complementary solutions 
and boundary conditions for each harmonic, index N running from 1 to N2. 
If IKASE - 0, the same file as was used in the previous case (or file 

2 in a first case) will be used. This happens when all the comple- 
mentary solutions to be used from the previous case are properly 
positioned on the file (the complementary solutions must be arranged 
in order of increasing wave number). If IKASE = 1, the scratch file 
(ISCR, initially 12) will be used for ICOMP and ICOMP of the previous 
case will be made the scratch file 

a. If KASE(N) - 0, go to step c 

b. If KASE(N) = I, the complementary solutions and boundary conditions 
are read from place I on the old complementary solution file. Go 
to step e 


*In the case of a symmetric prebuckling state, for which both symmetric 
and antisymmetric buckling modes are computed simultaneously, it is on- 
ly necessary that the numerically smaller of the two eigenvalue 
sequences has converged within the required accuracy. 
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c. Call BC1 to calculate boundary condition matrices [B] and [D] for 
N-th wave number 

d. Calculate complementary solutions for the N-th wave number 

e. Write boundary condition matrices and complementary solutions 

on new complementary solution file, unless they are already there 

f. End of DO-loop 

7. If mode shapes from previous case (files 8 and 11) are to be used 

as the initial approximation, i.e., NSG = 0 and NSGS < 0 or ISS 6 = 3, 
go to step 10 

8 . Call INSHPE to calculate initial approximation for buckling mode 
shape 

9 . Return 

10, Set up DO-loop over buckling wave numbers with index N going from 1 
to N2 

a. For the N-th harmonic, read boundary condition and complementary 
solution matrices from file ICOMP and shell, ring and dome forces 
from files 11 and 8 * 

b. Set IND = 0 to signal calculation of approximation to symmetric 
part of buckling mode 

c • Call PLCFOR to place symmetric or antisymmetric (for IND = 0 or 1, 
respectively) part of the shell, ring and dome forces in TF1, TF2, 
TF3 , TF4, and SL 

d. Calculate particular solution using forces of step c 

e. Combine particular and complementary solutions 

f. Call PLCDIS to calculate ex + B 2 and place symmetric or anti- 
symmetric part of i, n, v, Xj + 62 in proper place in TDISP 

g. If IND ■ 0, set IND ~ 1 and go to step c to calculate approx- 
imation to antisymmetric part of buckling mode 

h. Write v on file 9 and x> Q i + on file 3 for the N-th 

harmonic 

i. End of DO-loop 

11. Return 

Logical flow of OVERLAY 2: 

Call PRODl 

Return 


*These forces are not read in for the first iteration when NSG - 0 and 
N > N2S, because in this case the forces from the previous case are 
used for an initial approximation and these are available only for N 
< N2S. The initial forces for N > N2S will simply be those left over 
from the N2S-th harmonic. 
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Logical flow of OVERLAY 3; 

Read Fj from file M4 in block form and spread it into harmonic form. 

Gaps are left for F 2 and F 4 

Read F 2 from file M4 in block form and spread it into harmonic form. For 
each harmonic F 2 follows Fi 
Repeat step 2 for Fi* 

Read F 3 in block form from file M4 

Write Fi , F 2 , F 4 for each harmonic onto file 8 

If NRING > 0, read three blocks of ring forces FLj, FL 2 , FL 3 

Spread F 3 into harmonic form 

If NRING > 0, spread FL1, FL2, FL3 into harmonic form 

If ND > 0, read dome forces from file M4 and write them onto file 11 

Write F 3 , FLi , FL 2 , FL 3 for each harmonic onto file 11 

Return 

Logical flow of OVERLAY 4: 

Read g, rj, v in harmonic form for all harmonics from file 9 
Block £ and write it on file 9 

Block n and write it on file 9 

Block v and write it on file 9 

Read x> and (if LTYPE = 1) e* ■+ e 2 in harmonic form for all harmonics from 

file 3 

Block x and write it on file 11 

If LTYPE - 1, block &i + e 2 and write it on file 11 
Call subroutine CALCUL to calculate 0 , ^ and the ring displacements 
Uy> u <() 

Return 

Logical flow of OVERLAY 5: 

Read mode interaction data from file 10 

Read prebuckling data from file 1 

Call FORCES to calculate shell pseudoforces 

Call EQIFOR to calculate shell, ring, and dome equivalent pseudoforces 
Return 

Logical flow of OVERLAY 6: 

In NPS =0, write that the prebuckling stresses are taken from the 
previous case and return 

Call subroutine PREB to read and block the prebuckling state data 
Write the prebuckling state data on file 1 
Print the prebuckling state data at selected output points 
Call subroutine MODINT to set up the harmonic interaction data for Fourier 
products 

Write the harmonic interaction data (COMMON /M/) on file 10 
Return 
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Logical flow of OVERLAY 7: 

If NSG ^ *“10 , read structural data from file 10 
Read and write case title card 

Stop if first four characters on case title card are STOP 
Read and write case option card: LOOP, NSG, NWP, NFM, NST, NPS, NIC, 

LSYMM, NS, NT, SIGDIG, LTYPE , GUESS, RTABL, SKAP, ISS4, ISS6 
Read shell and ring output points and initial and final iteration 
numbers 

Check if shell data, GUESS, and prebuckling state data (if GUESS ^ 0) are 
unchanged from previous case; if so, set NW = 0; otherwise, NW = 1 
Read prebuckling wave numbers NWAVEl(I) , I = 1,N1« If NSG = 0, save N2 
of previous case as N2S. If NW = 0, save NWAVE2(I) of previous case 
as NWS (I) 

Read buckling wave numbers NWAVE2(I) , I = 1, N2 

If ISS4 ^ 0, read buckling wave numbers NWS (I) , 1 = 1, N2S of previous 
case 

Call KASG for calculation of IKASE and KASE 
Write prebuckling and buckling wave numbers 

If NWAVE2(I) includes: n = 0, set ND = 1; n = 1, set ND = 2; n = 0 and 1, 
set ND = 3 

If NS was input as 0, set NS = 1 through function NSYMM if this case is 
recognized as one of equal and opposite eigenvalues 
Read "basic input tables: 

Geometry: N0UT2, N0UT1, N0UT3 , TS, TR, TRP, TRR2, TXB 

Wall properties: TEl, TE2, TE12, TNUl, TH 

Foundation moduli: TK1, TK2, TK3 

Stringer properties: TEAST, TEIST, TGJST, TZBST 

Call SETUP to calculate NDIS, TDIS, JENT, IBR, NBR, IEND, KEND 
Write input tables 

If NIC ^ 0, call BC to read and write boundary data 

If no domes exist, set ND = 0 

Write basic structural data on file 10 

Call ADDRES to set up equivalent addresses and vector lengths for 
operations with displacement and force vectors 
Call CONST to set up IC0NST and ISUB, indicating whether the calculation 
can be reduced because of constant wall properties 
Return 

Subprogram descriptions for SRA 101 .. - SRA 101 consists of 49 
contractor-supplied subprograms (fig. 19 ) . Those subprograms which 
have features special to SRA 101 are described below. For descriptions 
of the remaining subprograms of SRA 101, which are also used by other 
programs, see page 121. 
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MAIN OVERLAY 


This overlay always resides in core and consists of the main program 
and three contractor-supplied subroutines, NTRAN, OUTP, and TYMCHK, used 
by several primary overlays. 

MAIN 

This program sets up and controls the Stodola-type iteration process 
for the buckling mode. It calls, as needed, each of the seven primary 
overlays . 

NTRAN (NU, IND, LN, A, L) 

This subroutine serves for reading from (if IND = 2) or writing on 
(IND = 1) file NU a vector of length LN starting at address A. The 
subroutine uses BUFFER IN and BUFFER OUT reading and writing, respectively. 
The formal parameter L is not used in the GDC version. 

OUTP (B, LSTAB , N2, L, KK, KN) 

This subroutine is used for printing out at specified output points 
displacement and force vectors which are in core in block form. L is 
the number of half blocks starting at address B. Each block has N2 
harmonics and LSTAB meridional points.* KK(K) , K = 1, KN are the indices 
of the specified output points. 

TYMCHK (L, TITLE, T, NU) 

This subroutine checks whether unit NU has completed reading or 
writing. If the unit is still busy TYMCHK calls the system routine 
RECALL which releases the central processor for a few seconds and then 
checks again. TYMCHK uses IF UNIT to check whether NU is free^ and in case 
of an error exit it prints out TITLE which is the name of the program 
that called TYMCHK. The parameters L and T are not used in the CDC 
version. 

PRIMARY OVERLAY 1 


This overlay consists of the main subprogram MAIN1 and fifteen 
contractor-supplied subroutines (fig. 19). Its essential function is to 
perform the integration of the differential equations for each iteration. 


*N2 and LSTAB do not have to be the number of buckling harmonics and 
number of meridional shell points, respectively. They are just the two 
numbers which define the block size and structure. For blocks of ring 
forces, for example, LSTAB is replaced by NRING . 
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MAIN! 


This subprogram implements the integration of the differential equa- 
tions. In the first pass through MAIN1 it sets up file ICOMP for the 
boundary condition matrices [B] and [D] and complementary solutions for 
each buckling harmonic. These do not vary from iteration to iteration. 

In each succeeding pass through MAIN1, one for each iteration, it 
combines the complementary and particular solutions for each harmonic 
and stores the resulting solution on files 9 and 3. 

BCl(FN, A, NDIS, BBP, BD) 

This subroutine generates the boundary condition matrices [B] and [D] 
which are dependent on the wave number FN, viz. for ring and dome 
boundaries . 

INSHPE (N0UT1, TS, B) 

This subroutine generates an initial guess for the buckling mode 
amplitudes £, q, v, x> a nd in case of a live pressure loading (i.e., 

LTYPE = 1) ei + e 2 - For each buckling harmonic 5 , p, and ei + e<i are 
set to zero, and v and x are set to have parabolic variation. The v and 
X distributions for different buckling mode wave numbers NWAVE2(I) are 
proportional but have a relative magnitude which varies as 0.9 1 . The 
initial guess is read out in harmonic form, £, q, v on file 9, and 
X, ej + e 2 on file 3. 

INTRPL (TF1 , TF2, TF3, TF4) 

This subroutine interpolates for the variables needed by DER 

for the derivative calculation. If the distance between S and the next 
TS-value is smaller than 0.001*DS, no interpolation is done. The . 
interpolation is linear for all variables except the forces TF1, TF2, 

TF3, TF4 for which it is quadratic. 

PLCDIS (IND, Y s Z, FN, TXI, TETA, TV, TCHI, TE1E2) 

This subroutine calculates the dilatation ex + e 2 and then places it, 
the displacements £, q, v and the rotation x at the corresponding vectors 
TE1E2, TXI, TETA, TV, TCHI. These vectors contain both the cosine and 
the sine components of the variables. In the symmetric case (IND = 0), 
PLCDIS transfers the cosine components of n» X» e l + e 2 an< ^ the sine 
component of v. In the antisymmetric case (IND : = 1), PLCDIS transfers 
the sine components of £, q, x> e l + e 2 an< ^ reverses the sign of the 
cosine components of v before transferring it. 
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PLCFQR (IND, JENT, N0UT1, NN, TSA, NOUT2) 


For each harmonic the symmetric and antisymmetric components of the 
shell, ring and dome forces are read by MAIN1 into core from files 8 
and 11, the shell and ring forces into the array TF and the dome forces 
into DOMFOR. Subroutine PLCFOR picks either the symmetric or antisymmetric 
components of these forces. (IND = 0 indicates symmetric forces; IND « 1, 
antisymmetric.) The forces are scaled up by the eigenvalue estimate of 
the previous iteration and then placed into the arrays TFl, TF2, TF3, 

TF4 (shell forces) and SL (ring and dome forces). 

In the antisymmetric case, the sign of the F 3 components of the shell 
forces and the FL 3 components of the ring forces are reversed. The 
corresponding sign changes in the dome forces are made when they are 
generated in FORD. 

Note that the shell and ring forces are packed in the array TF in 
the following order: F} , F 2 , F 4 , F 3 , FLx, FL 2 , FL 3 . 

PRIMARY OVERLAY 2 

This overlay consists of the main subprogram MAIN 2 and five contractor- 
supplied subroutines (fig. 19). Its purpose is to calculate the scalar 
product of the forces of file M4 with the block displacements of files 
9 and 11. 

MAIN 2 

* 

This subprogram calls PR0D1 and provides through the calling sequences 
storage locations for the block forces and displacements. 

PR0D1 (PRODS, PRODA, TFl, TF2, TF3, TF4 , TXI, TETA, TV, E1E2, TGHI, TFL1, 
TFL2, TFL3, I3X, UY, UPHI) 

This subroutine calculates the symmetric and antisymmetric components 
of the scalar product given the force and displacement vectors according 
to the following formula 



Because of the ^-integration, only the zeroth harmonic of the integrand 
contributes to the integral. This zeroth harmonic is calculated by the 
subroutine ZERO which is called twice for each term in the integrand - 
once for the symmetric component and once for the antisymmetric one. 
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If the prebuckling is symmetric (LSYMM = 1) so that the symmetric 
and antisymmetric modes are uncoupled, two scalar products PRODS and 
PRODA are calculated. However, in the general case (LSYMM ^ 1), the 
symmetric and antisymmetric components are added together to form the 
scalar product PRODS. 

PRODOM (FINT, NDIS, JENT, N0UT1, TR) 


This function calculates a correction to an integral over a shell 
meridion with dome closures. In treating such a shell, for each dome 
closure an artificial edge is created in the model by deleting a small 
polar cap. PRODOM gives, to first order in the edge radius, the integral 
over all deleted caps of the integrand FINT, 


SUM (A, N) 

This function performs the summation SUM = 


N 


I A(I) 
1=1 


obtain the ring contribution to the scalar product. 


and is used to 


SYMP (FINT, TS, NDIS, JENT) 

This function integrates an integrand FINT over an interval with the 
independent variable TS. Both are given as vectors with same number of 
entries. FINT is assumed to be continuous except at sub interval boundary 
points TS (I) where the boundary indices I are given by JENT(J), J = 1, 
NDIS. Between two boundary points there has to be at least one interior 
point and the values of TS must be equally spaced. Integration proceeds 
by Simpson’s rule in each subinterval. If the number of interior points 
in the subinterval is even, the trapezoidal rule is used for the last 
TS-increment in the sub interval. 

ZERO (X, Y, Z, IZ, N2, LSTAB , IA, NWAVE2) 

This subroutine calculates the zeroth harmonic of a product of two 
sets of Fourier sine or cosine series. Both sets consist of LSTAB 
series and each series of both sets included N2 harmonics NWAVE2(I) , 

I = 1, N2. The first set is stored in X(J,I),. I = 1, LSTAB, J = 1, N2, 

and the second set in Y(J,I). Zero assumes that X and Y are stored 

densely [i.e., they are dimensioned (N2,LSTAB)] , and calculates 
equivalent addresses instead of using double indices. 

The product is stored in the vector Z(I), 1=1, LSTAB according to 
IA. If IA = 0, Z is equal to the product; if IA = 1, the product is 

added to Z. The parameter IZ determines whether X and Y are cosine or 

sine series, IZ = 1 corresponds to cosine series and IZ = 2 to sine 
series. 
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PRIMARY OVERLAY 3 


This overlay consists of the main subprogram MAIN3 and one contractor- 
supplied subroutine, (fig. 19). Its only purpose to rearrange the 
equivalent forces from block to harmonic storage. It is called before 
integration of the differential equations, which is performed one 
harmonic at a time. 

MAIN 3 


This subprogram reads from file M4 the block forces, rearranges them 
through subroutine SPREAD, and writes them in harmonic form onto external 
files 8 and 11. 

SPREAD (A, B, LS, N2, IGAP, LN) 

This subroutine is the reverse of subroutine of BLOCK, transferring 
one variable from block storage to harmonic storage. For the definition 
of the formal parameters, see the description of subroutine BLOCK. A 
working space of 20,000 words is provided in MAIN3, the first 5,000 
for a block variable, the last 15,000 for 3 variables in harmonic form. 

PRIMARY OVERLAY 4 


This overlay consists of the main subprogram MAIN4 and two 
contractor-supplied subroutines (fig. 19). Its purpose is to rearrange 
to block form the harmonic displacements obtained from the integration of 
the differential equations. These displacements are then used with the 
prebuckling stress resultants by OVERLAY 5 to calculate the equivalent 
forces. 

MAIN4 

This subprogram reads from files 9 and 3 the harmonic displacements, 
rearranges them through subroutine BLOCK, and writes them in block 
form onto files 9 and 11. 

BLOCK (A, B, LS, N2, IGAP, LN) 

This subroutine transfers one variable from harmonic to block storage. 
B is the address of the first element of that variable in harmonic 
storage. A working space of 20,000 words is provided in MAIN4, the 
first 15,000 for 3 variables in harmonic form and the last 5,000 for 
one of these variables in block form. The definition of the formal 
parameters is given below. 
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A = storage for block type variable 

B = storage for harmonic variable. It is assumed that the 

variable which is transferred is the first in a sequence of 
variables 

LS = number of meridional points 
N2 - number of harmonics 

IGAP = length of one harmonic sequence; if there are L variables 
then IGAP - 2 * L * LS 
LN = N2 * LS 

CALCI3L (TXI, TETA, TV, TCHI, TPSI, TTHET, UX, UY, UPHI) 

This subroutine calculates and stores on external files several 
subsidiary block displacements, viz. the ring displacements Uy, and 
U(j), and the shell rotations ijj and 0. In MAIN4 the calling sequence for 
CALCUL is 

CALL CALCUL (A, A(I1) ,A(I2) ,A(I3) ,A(I3) ,A(I1) ,A(I2) ,A(IR21) ,A(I3)) 

This means that r\ and 0 share the same space in core, v shares space with 
u x and Uy, and x> ^ and u^ share the same space. As x is left over in 
core from MAIM, CALCUL reads £ and x] from file 9 and calculates u x and 
Uy according to the formulae 

Ux = 5 + e y x 
u y = n - e x x 

which are then written on file 11. Next v is read from file 9 and the 
values of the amplitudes of the shell displacements n, v and rotation 
X for the current iteration are printed at the specified output points. 
Then £ and n are differentiated to form £* and n*, and u<j> is calculated 
from the formula 

u<j, = [a v - (ex£* + eyTi*)]/r 

and written on file 11. With £*, n* and v in core, 0 and \p are calculated 
according to 

6 = (r’/r) (v - rf ) - ?*/R 2 
t - (v - n*)/R 2 +(r’/r)?‘ 
and written on file 3. 


88 



PRIMARY OVERLAY 5 


This overlay consists of the main subprogram MAIN 5 and six contractor- 
supplied subroutines (fig. 19), Its purpose is to generate the 
pseudoforces required for the equivalent statics problem of each iteration 

The calculation of the pseudoforces involves taking the product of 
prebuckling stress resultants vectors by buckling displacements vectors , 
The main problem here is to execute these calculations in a limited 
core storage. It is assumed that there is only space in core for at 
most two buckling displacement vectors (with 100 meridional points and 25 
harmonics this corresponds to 10,000 words). To accomplish the calcula- 
tions under this restriction, use is made of external files and the 
variables are equivalenced through the calling sequences. For convenience 
the calculation is broken into two subroutines. Subroutine FORCES 
calculates the shell pseudo forces X \ , X 2 , X 3 , Li, L 2 . Subroutine EQIFOR 
calculates from these forces the equivalent shell forces Fj, F 2 , F 3 , F 4 . 

It also calculates the ring forces FLi , FL 2 , FL 3 , and dome forces FD* , 
11 ) 30 , 'FD 31 , FD 4 . 

MAIN 5 

This subprogram reads the harmonic interaction data from file 10 and 
the prebuckling data from file 1 and calls FORCES and then EQIFOR. 

Through the calling sequences to these subroutines it provides storage 
for block variables used by them. This storage, B (17476) , in MAIN.5 is 
divided up into two main parts. 

In the call to FORCES, the first part is reserved for two variables, 
each of the length of one buckling shell block (LN2) . The second part, 
starting at B(J0), is reserved for the five prebuckling variables of file 
1 - Ti, T 2 , T 12 , X 3 , and T^ - plus the derived variable T* + T 2 . Each of 
these variables except T has the length of one prebuckling block (LNl) , 
whereas has the lengtn of one prebuckling ring block (LNRl) . The 
total length of B, 17476, is based on a maximum of 7 prebuckling and 25 
buckling harmonics, as well as the maximum of 100 meridional points and 
34 rings. The calculation of the shell pseudoforces consists of taking 
many products which are of the type of a prebuckling state variable by a 
buckling response variable. Because of the desire to minimize the field 
length used, each buckling response variable is brought into core only 
at the time it is to be used. This is brought into either the first 
or second half of the first part of B, the remaining half then being 
used for the product series to be calculated. 

In the call to EQIFOR, the first part of B is also used by six varia- 
bles, each of the length of one buckling ring block (LNR2) . In order 
that the prebuckling ring stress resultant, which is the fifth variable 
on file 1 , remain in core for the subsequent calculation of the ring 
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forces, it is necessary that JO be determined as the maximum of 12 
(i.e. , 2 * LN2 + 1) and 6 * LNR2 - 4 * LN1 + 1. 

EQIFOR (TF1, TF2, TF3, TF4, TXl, TX2, TL1, TL2, TX3, TMP, UX, UY, UPHI, 

WX, WY, TPHIO , TFL1, TFL2, TFL3) 

This subroutine calculates ^the equivalent shell, ring, and dome 
forces and writes them on file M4. The nineteen arguments of EQIFOR 
share the same storage in MAINS in accordance with the calling sequence 
in MAINS. 

The calculation of the equivalent shell forces is based on the formulae 
Fx = -(r/R 2 )Xi + r'(X 3 - l[/t) 

F 2 = -r'Xi - (r/R 2 )(X 3 - Lj/r) 

F 3 = -X 2 + L X /R 2 

f 4 = -L 2 

The equivalent ring forces are calculated from 
FLi " (T <(. 0 w y>‘ 

FL 2 = 

^3 = 

FL 4 ^ 0 

where Tx are linear (A = 1) prebuckling ring hoop forces, and the ring 
rotations w x and w y are calculated from the ring displacements by 

W X = < u y “ U ij,)/ a 

w y = -uja 

Subroutine FORD is called by EQIFOR to calculate the dome forces FD^ , 

FD 3 q, FD 3 i, and FD 4 . 

These forces are written on file M4 in the order Fi, F 2 , F 4 , F 3 , 

FLi, FL 2 , FL 3 , FDi, FD 30 , FD 3 i, FD4. 

FORCES (TXl, TX2, TL1, TL2, TTHET, TCHI, TPSI, TPR, TT10, TT20, TT120, 

TX30, T1P2, E1E2, TX3) 

This subroutine calculates the pseudoloads acting on the shell sur- 
face for the equivalent statics problem of each iteration. The fifteen 
arguments of FORCES share the same storage in MA.IN5 in accordance with 
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the calling sequence in MAIN5. 

The calculation is done according to the following formulae ' 

Xi =-[(Ti o + T 2 o )0]*/r + X 3o x 
X 2 * -r , [(T lo + T 2 o )e]/r + X 3() ^ 

X 3 ” X 3 () (e 1 + e 2 ) 

Li - Tz o i> + T 12o x 
L2 - "(Ti 0 X + Ti 2o ^) 

where Ti q and T 2 are linear (X = 1) prebuckling stress resultants, and the 
terms in X 3 q apply only for a live pressure field XX 3 . Upon exit from 
FORGES, Xx , X 2 , -L 2 , L x are stored in that order on file 8 , and the 
location TX3 contains X 3 - Lf/r for future use by EQIFOR. 

FORD (IND, SHLFOR, DOMFOR, NDIS, JENT, N0UT1, LN, NDOME, TR, KASE, N2) 

This subroutine calculates the dome forces applying at the artifi- 
cial edge of the model near the pole. These are computed from the 
pseudoforces at the edge according to the following formulae: 

For n = 0 

FDi = FLj = ± Fj 

FD 30 = FL 3 = + | f 3 

FL2 ~ FL4 = 0 

For n = 1 
FLj = FL 2 = 0 
FD 31 = FL 3 = | (± X 2 - Xi) 

FD 4 = FL 4 = - I (Li ± L 2 ) 

For the terms with ambiguous signs, the upper signs apply at all poles 
other than one at the terminal point of the shell meridian, and the 
lower signs apply at a terminal point dome. For n > 2 all dome forces 
are zero. 

Subroutine FORD is called six times by subroutine EQIFOR, each time 
calculating a part of the dome forces. 
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FPROD (X, IX, Y, IY, Z IA, LSTAB, Nl, N2) 


This subroutine, which is called by SYMPRO, calculates the product 
of two sets of FOURIER sine or cosine series* Both sets consist of 
LSTAB series; the first set has the harmonics NWAVEl(I) , I m 1,N1, the 
second set the harmonics NWAVE2(I) ,1=1, N2. The first set is stored 
in X(J,I) , 1 = 1, LSTAB , J = 1,N1. The second set is stored in Y(J,I), 

I = 1, LSTAB , J = 1,N2. Only the harmonics belonging to NWAVE2 are 
retained in the product which is stored in Z(J,I), I = 1, LSTAB , J = 1,N2. 
FPROD assumes that X,Y,Z are densely stored [i.e. , they are dimensioned 
(Nl, LSTAB) and (N2, LSTAB), respectively], and calculates equivalent 
addresses instead of using double indices* IX, IY determine whether X,Y 
are sine or cosine series. IX, IY = 1 denote a cosine series for X,Y 
respectively. IX, IY = -1 denote a sine series. 

IA determines how the product is stored in Z: 


If IA = 0 
If IA = -1 
If IA = 1 
If IA = -2 


Z is equal to the product 
Z is equal to (-1) times the product 
The product is added to Z 
The product is subtracted from Z 


KAPPA (A, B, M) 

This subroutine is called by FORCES and EQIFOR to scale the unit 
load axisymmetric torsionless components of the prebuckling stress 
resultants Tj (TT10) , T 2 (TT20) , T^ (TPHIO) and, for live pressure, normal 
pressure X 3 (TX30) by the input factor tc (SKAP). This scaling is 
performed only in conjunction with an input nonzero eigenvalue shift. 

The variables to be scaled on a given call to KAPPA, A and possibly B, 
are assumed to be stored in block form. If M = 1, both shell stress 
resultants A = TT10 and B = TT20 are scaled. If M = 2, only A = TX30 is 
scaled. If M = 3, only the ring stress resultant A = TPHIO is scaled. 

SYMPRO (A, NA, B, C, IA) 

This subroutine, which is called by FORCES and EQIFOR, supervises 
the calculation of the product C of a prebuckling variable A by a 
buckling variable B. While the buckling variable consists of both cosine 
and sine components, the prebuckling variable may consist of only cosines, 
only sines or both. This is determined by the symmetry (or lack of 
same) of the external loads and the type of variable being treated. The 
symmetry of the load system is indicated by the variable LSYMM, which is 
transmitted to SYMPRO through blank COMMON. 
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LSYMM 


1 


indicates symmetric (about an axial 
plane) load system 
LSYMM - -1 indicates antisymmetric load system 

LSYMM = 0 indicates a general load system 

A prebuckling variable may be composed of cosines for the case of 
symmetric loading and of sines for the case of antisymmetric loading or 
vice versa. In the first case it is referred to as a "normal” type and 
in the second case as a "shear" type variable. NA indicates the type of 
prebuckling variable being treated. 

NA » 1 indicates normal type (T lo ,T 2() ,T ( j )0 ,X 3 0 ) 

NA = -1 indicates shear type (Ti 2 0 ) 

The argument IA indicates whether the product is of shell variables 
or ring variables and whether the product should replace C or be added 
to C. 


IA = 

0 

denotes that C is made equal to the product 



of A and B 

IA = 

1 

denotes that the product is added to C 

IA = 

-1 

denotes that C is made equal to the 



negative of the product 

IA = 

-2 

denotes that the product is subtracted 



f rom C 

IA < 

0 

applies only to ring variables 

IA > 

0 

applies only to shell variables 


PRIMARY OVERLAY 6 

This overlay consists of the main subprogram MAIN 6 and two 
contractor-supplied subroutines (fig. 19). Its purposes are to create 
the prebuckling data file 1 and also to generate the harmonic interaction 
data needed for Fourier multiplication. 

MAIN6 


This subprogram writes the prebuckling data, read and blocked by 
subroutine PRER, on file 1, and writes the harmonic interaction data, 
generated by subroutine MODINT, on file 10. 

MODINT (Nl, N2, NWAVE1, NWAVE2) 

A repetitive step performed by the program is the calculation by 
FPROD of the product of two incomplete Fourier series. Although many 
different series are multiplied by FPROD, the harmonic numbers included 
in each factor and product series remain the same (viz. the prebuckling 
and buckling harmonic numbers). Therefore, it is efficient to 
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precalculate and store, once and for all, the combinations of harmonic 
numbers of the multiplier and multiplicand series which contribute to 
each harmonic of the product series. 

To be specific, let us denote an incomplete Fourier series by the 
notation 

[a, N w ] - £ (a^ cos n^> + ^ sin n<{>) 

neN w 

where N w is a set of non-negative integers arranged in the order of 
increasing magnitude. When two such series [a, N w ^] and [b, N w2 ] are 
multiplied, the product may be reduced to a series of the same type 
[c, N w 3 ] by the use of the formulae 

cos n<}> cos mcf> = (1/2) [cos(m - n)$ + cos(m + n)<f>] 

cos n<j> sin m(j> - ( 1 / 2 ) [sin(m - n)(j> + sin(m + n)<j>] 

sin n<j> sin m<$> = ( 1 / 2 ) [cos (m - n)<j> - cos(m + n) cj) ] 

As may be seen from these formulae, the only contribution to a 
coefficient c p (or c ) of the product series comes from terms of the 
type and (5r a^^and %£„) where* 

m + n = p (m,n is denoted as a P-combination) 

m - n = p (m,n is denoted as an Mi-combination) 

or n - m = p (m,n is denoted as an M2 combination, m ^ n) 

When many products of the type [c, N w ^] = [a, N_ 1 ][b, N W2 J are 

calculated for different series [a, N wl ] and [b, N w2 J with the same 
N W1 and N W2 , it is efficient to precalculate and store the P, Ml, and 
^-combinations of the elements of N w3 « This is done by subroutine 
MODINT . It is assumed that the only elements in N w3 that are of interest 
are those that appear also in N w . The information generated by MODINT 
is utilized by the subroutine FPROD for the actual multiplication. 

Subroutine FPROD computes products of the type [X,NWAVE1] [Y,NWAVE2] 
with two different ordered sets of non-negative integers NWAVEl(I), 

I = 1,N1 and NWAVE2(I), I = 1,N2. As indicated, the harmonics of 
interest in the product are assumed to be those belonging to NWAVE2. The 
P, Ml, and M2-combinationsf for the harmonics of a product series are 

*In this context, m is always a harmonic of the first (a) series, and n 
is a harmonic of the second (b) series. 

t Henceforth, the term ,f combination ,, will not denote a pair of harmonic 
numbers NWAVEl(I), NWAVE2(J) , but instead the corresponding pair of 
indices I, J. 
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stored compactly as a vector MATC0M(1500) . Additional information is 
needed to tell the location in MATCOM of a particular combination* 

This information is given by the vectors NPLUS, NMIN1, NMIN2, and NCNTP, 
defined as follows: 


NPLUS (I) 
NMINl(I) 
NMIN2(I) 
NCNTP (I) 


is the number of P-combinations for the I-th 
harmonic of NWAVE2 

is the number of Mi-combinations for the I-th 
harmonic 

is the number of M2-comb inat i ons for the I-th 
harmonic 

is the address in MATCOM of the first P- 
comb inat ion of the I-th harmonic 


The combinations are stored in MATCOM starting with the P , Ml and M2- 
combinations (in this order) of the first harmonic of NWAVE2 and 
ending with the M2- comb inat ions of the N2-th harmonic. A pair (J,K) is 
stored with J first such that J corresponds to NWAVE1 (J) and K to 
NWAVE2(K) . 


Subroutine MODINT generates the vector MATCOM and the associated 
vectors NPLUS, NMIN1, NMIN2, and NCNTP. This information is passed 
back to MAIN6 through COMMON/M/. The search for combinations is in two 
steps. First, the sums NWAVE2(I) + NWAVE10) , I - 1,N2, J « 1,N1 are 
checked for equality to NWAVE2(K) , K - 1,N2. If equality holds, then 
(J,I) is a P-combination for K and (J,K) is an M2-eomb inat ion for I. 

Next, the sums NWAVE2(I) + NWAVE2(J) , I * 1,N2, J = 1,N2 are checked for 
equality to NWAVEl(K), K ~ 1,N1. If equality holds for some K then 
(K,I) is an Ml-combination for J and (K, J) is an Mi-combination for I. 

The search has to be done twice. The first time (NPASS - 1 in the 
subroutine) to find the number of combinations NPLUS (I) , NMINl(I), 

NMIN2(I) and to construct NCNTP (I); the second time (NPASS = 2) to use 
this information to put the combinations in their proper places in MATCOM. 

PREB (TT10, TT20 , TT120, TX30, TPHIO, N) 

This subroutine reads the prebuckling stresses T^, Tj, T 2 , Ti2* X3 
for N consecutive harmonics. This data is rearranged into block form as 
it is read in so that when reading is complete it is ready to be 
transferred to file 1. 

Three cases are considered depending on the symmetry of the pre- 
buckling state: 

(1) if LSYMM = 1, the prebuckling state is symmetric and PREB reads 
in the cosine components of T^, Tj, T 2 , X3 and the sine 
components of T 12 ; 
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(2) if LSYMM = -1, the prebuckling state is antisymmetric and PREB 
reads the cosine components of T 12 and the sine components of 

T<j> 9 ll 9 ^2 9 X 3 l 

(3) if LSYMM = 0, the prebuckling state has no symmetry, and for 
each harmonic PREB reads first the symmetric components as in 
case 1 and then the antisymmetric components as in case 2 . 

Note that in accordance with the rules of block storage, when each 
variable contains both cosine and sine components (LSYMM = 0) , the cosine 
components precede the sine components in core. This is true even in the 
case of Tj 2 > for which the sine components are read in first. 

In the case of a nonzero eigenvalue shift, PREB also transfers the 
axisymmetric torsionless prebuckling components of T^, T 2 > X 3 , and 
onto file 10 , thus forming a second record on this file after the basic 
structural data. 

PRIMARY OVERLAY 7 

This overlay consists of the main subprogram INPUT and seven 
contractor-supplied subroutines (fig. 19). Its essential functions are 
to input and write out the basic structural data, and to generate from 
it subsidiary data required by other overlays. 

INPUT 

This subprogram (with its subroutine BC) reads all input data except 
the prebuckling state data, writes the first record (structural data) on 
file 10 , and generates, with the aid of its subroutines, auxiliary data 
for use in other overlays. 

ADDRES 

This subroutine calculates most of the blank common parameters and 
in particular those that are used to control operations with packed 
vectors such as read’s, write’s and rearranging operations. 

CONST (NDIS , JENT) 

This subroutine generates control parameters to eliminate redundant 
calculations of shell wall rigidities at each Runge-Kutta point for 
shells with constant wall properties. The parameters ICONST and ISUB(I) 
are set according to the following rules. If all shell wall properties 
(i.e., the reference surface location z, and tables 2, 3, and 4) are 
constant over the whole shell, ICONST is set to unity; otherwise, it is 
set to zero. If the shell wall properties are constant in the I’th 
subinterval, ISUB(I) is set to unity; otherwise, it is set to zero. 
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ICHECK(I) 


This function is called by CONST and returns the value ICHECK(I) = 1 
if all shell wall properties (i.e. , the reference surface location z, and 
tables 2, 3, and 4) are unchanged from station I to I + 1; otherwise, 
the value ICHECK(I) = 0 is returned. 

KASG (NWS, N2S, NWAVE2, IKASE, EASE, NW, N2) 

This subroutine generates the vector KASE(I) , which controls the 
use of complementary solutions and boundary conditions* from the 
previous case. If EASE (I) « 0, the complementary solutions and boundary 
conditions for the I-th harmonic have to be calculated. If KASE(I) = J, 

J f 0, the I-th harmonic of the current case is the J-th harmonic of the 
previous case and the corresponding complementary solutions and boundary 
conditions may be taken from file ICOMP. Additionally, KASG decides 
whether there is need to change the complementary solution-boundary 
condition file from 2 to 12 or vice versa. This is done through the 
parameter IKASE. If for any harmonic the complementary solutions and 
boundary conditions are taken from the previous case and if that harmonic 
is not in the same place in the tew sequence of harmonics as it is in the 
old sequence, then there is a need to switch files and IKASE = 1. 
Otherwise, the same file may be used for the new complementary solutions 
and boundary conditions, and IKASE = 0. A necessary and sufficient 
condition for IKASE « 0 is that KASE(I) - I or KASE(I) = 0 for every I 
in the range [1, N2] . 

The decision whether any complementary solutions and boundary 
conditions may be used from the previous case is based on the structural 
data and eigenvalue shift. This decision is made in program INPUT and 
transmitted to KASG through the parameter NW. If NW = 1, the 
differential operator in the current case is different from that of the 
previous case and no complementary solutions or boundary conditions may 
be used from the previous case. Accordingly, IKASE = 0 and KASE(I) = 0 
for all I. 

If NW = 0, the input data permits the use of complementary solutions 
and boundary conditions from the previous case. KASG then searches the 
harmonics of the previous case - NWS (I) , I « 1,N2S- to find whether any 
of them are equal to any of the harmonics of the current case - NWAVE2(I) , 
I = 1 ,N2. If for some I and J, NWAVE2(I) = NWS(J), then KASE(I) = J. 

If the I-th harmonic in the current case is absent from the previous 
case, then KASE(I) = 0. 


*In this context, boundary conditions refer to their homogeneous part 
only, viz. the matrices [B] and [D] . 
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NSYMM (Nl, NWAVE1 , NT) 


This function checks the three conditions given on page 33, any one 
of which indicates the existence of equal and opposite eigenvalues. If 
any one of these conditions is satisfied, NSYMM m 1; otherwise, NSYMM = 0. 


Major FORTRAN variables of SBA 101 .- Major variables which have 
special meaning for SRA 101 are defined below.* For SRA 101 variables 
which are common to other programs, see page 126. 




Subprogram 

where 

Variable 

Definition 

generated 

ANTINT(IOO) 

antisymmetric part of shell contribution 
to scalar product integrand 

PR0D1 

ANTBNG(34) 

antisymmetric part of ring contribution 
to scalar product integrand 

PR0D1 

BDS (544) 

BD(4,4,34) 

BC 

BS (544) 

BBP(4,4,34) 

BG 

DENOMA 

denominator of Raleigh quotient for 
antisymmetric buckling mode 

MAIN 

DENOMS 

denominator of Raleigh quotient for 
(symmetric) buckling mode 

MAIN 

DF1(23) - 

FLi for dome boundaries for n » 0 

PLCFOR 

DF30(23) 

FL 3 for dome boundaries for n - 0 

PLCFOR 

DF31(46) 

FL 3 for dome boundaries for n = 1 

PLCFOR 

DF4(46) 

FL 4 for dome boundaries for n = 1 

PLCFOR 

DIFA 

relative difference between two 
successive eigenvalue estimates for 
antisymmetric buckling mode 

MAIN 

DIFS 

relative difference between two 
successive eigenvalue estimates for 
(symmetric) buckling mode 

MAIN 

DOMFOR(138) 

an array containing DF1, DF30, DF31, DF4 

EQIFOR 

FD1(23) 

same as DF1 

EQIFOR 

FD30(23) 

same as DF30 

EQIFOR 

FD31(46) 

same as DF31 

EQIFOR 

FD4(46) 

same as DF4 

EQIFOR 

FLAASS 

eigenvalue estimate two iterations ago for 
antisymmetric buckling mode 

MAIN 

FLAMA 

current eigenvalue estimate for 
antisymmetric buckling mode 

MAIN 

FLAMAS 

previous eigenvalue estimate for 
antisymmetric buckling mode 

MAIN 


*If instead of the dimension, the letter I appears in parentheses after 
the variable name, the variable is a dummy variable of a subroutine 
using space provided by the calling program. 
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Variable 

FLAMS 

FLAMSS 

FLASSS 

FNUMA 

FNUMS 

GUESS 

ICOMP 

ICONST 

IGAPM 

IGAP2 

IGAP3 

IKASE 


IND 


IR1 

IR2 

IR21 

IR3 

IR31 

IR4 

IR5 

ISCR 

ISFLAG 

ISS4 


ISS6 


Definition 


current eigenvalue estimate for 

(symmetric) buckling mode 

previous eigenvalue estimate for 

(symmetric) buckling mode 

eigenvalue estimate two iterations ago 

for (symmetric) buckling mode 

numerator of Raleigh quotient for 

antisymmetric buckling mode 

numerator of Raleigh quotient for 

(symmetric) buckling mode 

eigenvalue shift for axisymmetric 

torsionless prebuckling component 

complementary solution file number 

if 1, XB and data of tables 2, 3, and 4 are 

constant over whole shell 

2*LSTAB + 6*NRING 

2*LSTAB*(1 + LTYPE) 

6*LSTAB 

if nonzero, the scratch file (2 or 12) 
of the previous case will be used as the 
complementary solution file 
if 0, indicates integration for Symmetric 
components; if 1, indicates integration 
for antisymmetric components 
LNR2 + 1 
IR1 + LNR2 

12 + LNR2 
IR2 + LNR2 

13 + LNR2 
IR3 + LNR2 
IR4 + LNR2 
scratch file number 

if ISFLAG = 1, do not compute wall 
properties in DER and INTRPL 
if nonzero, use some complementary 
solutions from file TAPE2 (saved from file 2 
or 12 of a previous run) to construct new 
complementary solution file 
if nonzero, override abort if sub interval 
length criterion is exceeded; if 2, compute 
new initial approximation (ITO = 1) , but 
complementary solutions are to be taken 
from file 2 of 12 (saved from a previous run) 
if 3, new complementary solution file is to 
be constructed (ITO = 1) , but initial approxf 
mation is to be taken from files 8 and 11 
(saved from a previous case) 


Subprogram 

where 

generated 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

INPUT 

MAIN, MAIN1 
CONST 

ADDRES 

ADDRES 

ADDRES 

KASG 


MAIN1 


ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

MAIN, MAIN1 

MAIN, DER, CNT 

INPUT 


INPUT 
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Subprogram 

where 


Variable 

Definition 

generated 

ISUB(33) 

if ISUB(I) = 1, all wall properties are 
constant over subinterval I 

CONST 

IT 

iteration number 

MAIN 

ITF 

maximum iteration number 

INPUT 

ITO 

initial iteration number 

INPUT 

11 

LN2 + 1 

ADDRES 

12 

11 + LN2 

ADDRES 

13 

12 + LN2 

ADDRES 

JRl 

11 + LNR2 

ADDRES 

JR2 

JRl + LNR2 

ADDRES 

JO 

maximum of 12 and 6*LNR2 - 4*LN1 + 1 

ADDRES 

J1 

JO + LN1 

ADDRES 

J2 

J1 + LN1 

ADDRES 

J3 

J2 + LN1 

ADDRES 

J4 

J3 + LN1 

ADDRES 

J5 

J4 + LNR1 

ADDRES 

KAS 

parameter to indicate (to CNT and INTRPL) 
whether integration is for complementary 

MAIN1 

- 

(KAS - 3)or particular solution (KAS = 2) 
(denoted as KASE in CNT and INTRPL) 


KASE (25) 

a vector indicating the availability and 
position of complementary solutions from 
previous case. If KASE (I) = 0, the 
complementary solutions for the Ith 
harmonic must be computed. Otherwise, 
KASE (I) gives their position on the 
complementary solution file from the 
previous case 

KASG 

KK(100) 

entry numbers for output data 

INPUT 

KN 

number of output points 

INPUT 

KR(34) 

ring numbers for output of prebuckling 
ring hoop forces 

INPUT 

K2 

max (139, 11 + LNR23) 

ADDRES 

LN 

LSTAB*N2 

ADDRES 

LNR 

LNR23 + LN2 

ADDRES 

LNR1 

length of one prebuckling ring block, 
(N1 + N1E)*NRING 

ADDRES 

LNR2 

length of one buckling ring block, 
2*NRING*N2 

ADDRES 

LNR22 

2*LNR2 

ADDRES 

LNR23 

3*LNR2 

ADDRES 

LN1 

length of one prebuckling shell block, 
(N1 + N.1E)*LSTAB 

ADDRES 

LN12 

2*LN1 

ADDRES 
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Variable 

LN2 

LN2P 

LSN1 

LSN2 

LSYMM 


LS2 

LS21 

LS4 

LS41 

LS6 

LS61 

LS81 

LTAPE1 

MATCOM(1500) 

M4 

NCNTP(25) 

ND 


NDOME 

NMF 

NMIN1 

NMIN2 

NN 

NPLUS(25) 

NPS 

NR 

NRING 

NRNG2 

NRN1 

NRN2 

NS 

NSGS 

NT- 


Definition 


length of one buckling shell block, 

2*LN 

LN2*(1 + LTYPE) 

LSTAB*N1E + 1 
LSTAB*N2 + 1 

flag for symmetry of prebuckling data: 

= 0, general prebuckling; -1, 

antisymmetric prebuckling; 1, symmetric 

prebuckling 

2*LSTAB 

2*LSTAB + 1 

4*LSTAB 

4*LSTAB + 1 

6*LSTAB 

6*LSTAB + 1 

8*LSTAB + 1 

length of file 1, 4*LN1 + LNR1 

a vector containing harmonic interaction 

data 

equivalent force file number 
location of P-comfoinations in MATCOM 
a flag controlling dome forces: if domes 
exist and buckling wave numbers include 0 
but not 1, ND = 1; 1 but not 0, ND = 2; 
both 0 and 1, ND = 3. If no domes exist or 
all buckling waves numbers > 2, ND = 0 
number of domes 
equal to NFM 

number of Mi-combinations 
number of M2-combinations 
wave number 

number of P-combinations 

flag for prebuckling state table 

nunber of rings for prebuckling ring hoop 

force output 

number of rings 

2*NRING 

NRING*N1E + 1 

NRING*N2 + 1 

if equal and opposite eigenvalues, NS =1; 
otherwise NS = 0 

NSG from the last case for which NSG ^ 0 
if the axisymmetric prebuckling harmonic 
exists and represents pure torsion, NT 
should be input as 1 


Subprogram 

where 

generated 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

INPUT 


ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

ADDRES 

MAIN 6 

MODINT 

MAIN 

MODINT 

INPUT 


BC 

MAIN1 

MODINT 

MODINT 

MAIN1 

MODINT 

INPUT 

INPUT 

BC 

ADDRES 
ADDRES 
ADDRES 
INPUT, NSYMM 

INPUT 

INPUT 



Variable 

Definition 

Subprogram 

where 

generated 

NW 

if zero, some complementary solutions of 

INPUT 

NWAVE1 (25) 

previous case may be used 

wave numbers in prebuckling state 

INPUT 

NWAVE2(25) 

wave numbers in buckling mode 

INPUT 

NWS(25) 

wave numbers in buckling mode of previous 

INPUT 

N1 

case 

number of prebuckling harmonics 

INPUT 

N1E 

equal to Nl if LSYMM = 0; otherwise, N1E = 0 

ADDRES 

N2 

number of harmonics in buckling mode 

INPUT 

N2R 

N2*NRING 

ADDRES 

N2S 

N2 of previous case 

INPUT 

PEA 

antisymmetric part of scalar product 

PR0D1 

SKAP 

scaling factor for axisymmetric torsionless 

INPUT 

SYMINT(IOO) 

prebuckling component, k 

symmetric part of shell contribution to 

PR0D1 

SYMRNG(34) 

scalar product integrand 

symmetric part of ring contribution to 

PR0D1 

TCHI(I) 

scalar product integrand 
X 

PLCDIS 

TDISP(IOOO) 

a buffer space for displacements 

MAIN1 

TETA(I) 

n 

PLCDIS 

TE1E2(I) 

e T + e 2 

PLCDIS 

TF(1020) 

a buffer space for forces 

MAIN1 

TFL1(I) 

FLi 

EQIFOR 

TFL2(I) 

FL2 

EQIFOR 

TFL3(I) 

fl 3 

EQIFOR 

TF1(I) 

*1 

EQIFOR 

TF2(I) 

f 2 

EQIFOR 

TF3(I) 

f 3 

EQIFOR 

TF4(I) 


EQIFOR 

TL1(I) 

Ll 

FORCES 

TL2(I) 


FORCES 

TPHIO(I) 


PREB 

TPSI(I) 

CALCUL 

TTHET(I) 

e 

CALCUL 

TT10(I) 

Tl 

PREB 

TT120(I) 

Tl2 

PREB 

TT20(I) 

t 2 

PREB 

TV(I) 

V 

PLCDIS 

TXI(I) 

? 

PLCDIS 

TX1(I) 

Xi 

FORCES 

TX2(I) 

X 2 

FORCES 

TX3(I) 

X 3 

FORCES 
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Variable 

Definition 

Subprogram 

where 

generated 

TX30(I) 

X 3 0 

Tl + T 2 

PREB 

T1P2(I) 

FORCES 

WX(I) 

w x 

EQIF0R 

WY (I) 

w y 

E0IFOR 

UX(I) 

y 

u y 

CALCUL 

UY(I) 

CALCUL 

UPHI(I) 

U<j, 

CALCUL 


SEA 200 

External files .- SEA 200 mses four external files: TAPE2, TAPE3, 

TAPE7, and PUNCH. TAPE2 and TAPE3 are the standard input and output files, 
respectively. At the user's option, prebuckling state data required for 
SRA 201 and SEA 202 may be written onto TAPE7, and shell primary stresses 
(a s , a^) may be written onto PUNCH. 

Over aU logical flow of SEA 200 .- Essential features of the overall 
flow of SRA 200 are listed below. 

SEA200 (MAIN PROGRAM) 

Call INPUT 

INPUT 


1. Read and write case title card. If end-of-file, stop 

2. Read case option card: LOOP, NSG, NWP, NFM, NST, NMD, NML, NTL, 

NIC, NIS, NDER, SIGDIG, LTYPE , FLAM, RTABL, 
IS.S1, ISS2, ISS4, ISS6 

3. If ISS1 £ 0 and FLAM ^ 0., write on logical unit 7, the nonlinear load 
card (the first card of the standard prebuckling data deck) 

4. If FLAM = 0., set FLAM = 1, and to signal this, set LIN = 1 

5. Read basic input tables 

Geometry: NOUT2, N0UT1. N0UT3, TS, TR, TRP, TRR2, TXB 

Wall properties: TE1, TE2, TNU1, TH 

Foundation moduli: TK1, TK3 

Stringer properties: TEST, TEAST, TEIST, TZBST 

Mass densities : TRHOM 

Mechanical loads: TX1 , TX3 

Thermal loads: TTH1, TTH2, TDTH1. TDTH2, TTHST 

6. Call SETUP to construct geometric parameters: NDIS, TDIS, JENT, 

IBR, NBR. IEND, KENT) 
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7. Write input tables 

8. Multiply mechanical and thermal loads by load factor (FLAM) 

9. If NIS - 2, go to step 13 

10. If NIS - 1, read standard prebuckling data (at load DLAM), to 
obtain nonlinear quantities at DLAM (TT1N, TCHIN) and derivatives at 
DLAM (TT1ML, TCHIM1) 

11. Form initial approximation for Ti and x at load FLAM by linear 
extrapolation from DLAM to FLAM 

12. Go to step 14 

13. Set initial approximation state to zero 

14. If NIC = 0, make NOUTl-table negative at all boundaries except dome 
closures (to indicate boundary data comes from previous case) 

15. Call BC to read or generate boundary condition matrices BBP, BD, and 
SL for each boundary 

16. If present case has a rigid body degree of freedom (NDER =1), call 
RBMODE to calculate rigid body acceleration and correct ring and dome 
boundary conditions for inertial loads 

17. Set KASE = 3 for calculation of new complementary solutions 

18. If LIN ± 0, reset FLAM * 0. 

19. Calculate initial scale factors required for START 

20 . Return 

SRA200 


1. Set NLFLAG = 0 to indicate beginning of solution for nonlinear state 
at load level FLAM. If FLAM = 0., set NLFLAG = 1 to indicate 
beginning of solution for linear perturbation state 

2. Set up iteration loop for nonlinear state 

3. If KASE = 3, calculate and store complementary and particular solu- 
tions. Otherwise, calculate and store only the particular solution 
(in this case we are calculating a linear solution for which the 
complementary solutions from the last iteration for the nonlinear 
solution will be used) 

4. Combine complementary and particular solutions to obtain new 
estimate for nonlinear state (NLFLAG = 0) or a linearized state 
(NLFLAG i 0) 

5. If NLFLAG * 1 (indicating first linear perturbation state is being 
calculated), go to step 8. If NLFLAG = -1 (indicating second linear 
perturbation state is being calculated), go to step 9 

6. Compute and write (with the iteration number) the maximum relative 
change (R) in the meridional rotation field for the last two 
successive estimates of the nonlinear state 

7. If R > 10~( SI(3)I G), i.e., uniform convergence to SIGDIG significant 
digits has not been achieved, store the new estimate for the 
meridional stress resultant and rotation in TT1M1 and TCHIM1, and go 
to step 3 

8. Write forces (Y) and displacements (Z) of the last computed state 
along with meridional rotation (TCHIMl) of previous state 



9. Compute and store for each ring the hoop force and out-of-plane 
bending moment for the nonlinear (TTPHIN, TMYN) or first linear 
(TTPHIL , TMYL) states, or the hoop stretching strain (TEPSL) and 
out-of-plane bending strain (TCAPL) for the second linear state 

10. If ISS1 ^ 0, write on logical unit 7 the ring hoop forces for the 
nonlinear or the first linear states, or (if additionally ISS4 # 0) 
the second linear state 

11. Set up DO-loop over entry points for calculation of stress resultants, 
strains, and stresses 

A. Compute partially inverted shell wall rigidities, mass and thermal 
moments through shell wall 

B. Compute the stretching and bending strains and stress 
resultants and couples 

C. If NLFLAG = -1, go to step E 

D. Compute effective surface loads for calculation of force and 
displacement derivatives from differential equations 

E. If NLFLAG = -1 and ISS4 = 0, go to step L 

F. If ISS1 4 0, write normal shell stress resultants on logical 
unit 7 

G. If NLFLAG = -1, go to step L 

H. Calculate from differential equations the force and displacement 
derivatives, and from these the derivatives of the stretching 
bending strains 

I. Calculate the stress (SIGST) at stringer centroid 

J. Set up DO-loop over shell wall layers 

i. Calculate from the stress-strain relation the primary shell 
stresses (SIG1 and SIG2) at wall layer faces 

ii. Calculate, by integration of the appropriate three- 

dimensional equilibrium equation through the shell wall 
thickness, the transverse shear stress SIG13 at wall layer 
interfaces and midpoints 

iii. Write normal deflections -and stresses 

iv. If ISS2 $ 0, punch primary shell stress at wall layer faces 

v. End of DO-loop over wall layers 

K. If NLFLAG = 0, normalize thermal and mechanical loads and (if 
NDER $ 0) acceleration to unit load level 

L. End of DO-loop over entry points 

12. If NLFLAG =0, normalize boundary loads to unit load level 

13. If NLFLAG = -1 and ISS4 =0, go to step 23 

14. If ISS1 # 0, write the meridional rotation field on logical unit 7 

15. If NLFLAG * 0, set NLFLAG - 1, KASE - 2, and go to step 3 

16. If NLFLAG - -1, go to step 23 

17. If ISS1*ISS4 # 0, write on logical unit 7 the nonlinear and linear 
ring out-of-plane bending moments and shell normal stress couples 
(additional prebuckling data) 

18. If ISS4 = 0 and NTL = 2, call INPUT for next case 

19. Call STEEN to compute the stiffness functional (SELL) 
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20. 


If FLAM = 0., calculate the (linear) stiffness at zero load, set its 
rate of change with load factor to zero, and go to step 25 

21. Call STEEN to compute the stiffness functional Oo* e 0^ -v(SENL) 

22. Set NLFLAG = -1, correct dome boundary loads for second linear state 
(if live pressure loading), and go to step 3 

23. Call STREN to compute the stiffness functional cfo* e O^ (SENL2) 

24. Calculate the stiffness and its rate of change with load factor 

25. Write the stiffness and its rate of change with load factor 

26. If ISS1*ISS4 ^ 0, write on logical unit 7 the stiffness and its 
rate of change with load factor 

27. Call INPUT for next case 

Subprogram descriptions for SEA 200 .- SEA 200 consists of 20 
contractor-supplied subprograms (fig. 20) • Those subprograms which have 
features special to SEA 200 are described below. For descriptions of the 
remaining subprograms of SEA 200, which are also used by other programs, 
see page 121. 

SRA200 


This is the main subprogram of the nonlinear response program 
SEA 200. Its essential functions are to set up and control the Newton 
iteration process for the nonlinear state, the integration for the first 
and second linear perturbation states, and the calculation of the stresses, 
displacements, stress resultants and couples, and structural stiffness. 

It is described in more detail in the overall logical flow chart of this 
program. 

INPUT 

This subprogram (and its subroutines) reads and writes all of the 
input data, sets up the initial approximation for the Newton iteration, 
and prepares the boundary conditions. It is described in more detail in 
the overall flow chart of this program. 

PR0D1 (Z, Zl) and RBMODE 

PR0D1 and RBMODE are essentially the same as the corresponding 
routines of SEA 100. In this case, they are simplified by the fact that 
the only rigid body mode of interest is a translational displacement 
along the axis of revolution. 

STEEN (TT1, TT2, TMl, TM2, TTPHI , TM?, ANS) 

This subroutine is called by SRA200 and calculates the three 
functionals and o required in the calcula- 

tion of the structural stiffness and its derivative, given by 

K 0 = Ao/aoveo^ 1 ^ 

K 0 (1 > = K 0 {1 - K 0 [a 0 -e 0 (2) + 0 O (1) -e 0 (1 > ] }/A 
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Each of these functionals may be written in the form 

27r/(T 1 e 1 + T 2 e 2 + + &2 K 2) rds + 2 tf J (T^ + M^K y )a 


where the integral is over the shell meridian and the summation over all 


rings. The stress resultants and couples correspond 
linear state an or its derivative state _ and tl 


to either the non- 
and these variables are 


linear state 0 q or its derivative state 0 q 
passed through the calling sequence. The stretching and bending strains 
correspond to either the first derivative state sqW or the second 
derivative state , and these variables are passed through blank 

COMMON. The integration is performed by means of Simpson f s rule. The 
result of the calculation is passed back to SRA200 as the last argument 
in the calling sequence. 


Major FORTRAN variables of SRA 200 .- Major variables which have 
special meaning for SRA 200 are defined below. For SRA 200 variables 
which are common to other programs, see page 126. 




Subprogram 

where 

Variable 

Definition 

generated 

ISSl 

flag to write on logical unit 7 
standard prebuckling data for SRA 201 

INPUT 

ISS4 

flag to write on logical unit 7 
additional prebuckling data for SRA 202 

INPUT 

LIN 

flag to indicate calculation of linear 
solution only (LIN ^ 0) 

INPUT 

NLFLAG 

flag to indicate state being computed: 
= 0, nonlinear state; = +1, first 
linear state; = -1, second linear 
state 

SRA200 

NML 

flag for mechanical loads table 

INPUT 

NTL 

flag for thermal loads table 

INPUT 

NIS 

flag for initial approximation to 
nonlinear state 

INPUT 

EEL 

convergence tolerance for 



meridional rotation field, io"(SIQ)IG) 

INPUT 

TCAPL(IOO) 

K y 0 (2) 

SRA200 

TEPSL(IOO) 

Hd i2) 

SRA200 

TCAPIL(IOO) 

ki 0 <!> or ki 0 (2) 

SRA200 

TCAP2L(100) 

< 2 0 (1) or K 2 0 (2) 

SRA200 

TCHIMl(lOO) 

rotation field (x) of previous 
iteration 

SRA200 , INPUT 
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Subprogram 

where 

Variable 

Definition 

generated 

TDIL(100) 

linearized dilitation field 
(ej + of previous 

iteration 

SRA200, INPUT 

TEPSIL(IOO) 

P (1) nT . c (2) 
e l 0 or e h 

SRA200 

TEPS2L(100) 

e (1) nr c (2) 
£ 2 0 ° r £ 2 0 

SRA200 

TMYL(34) 


SRA200 

TM1L(100) 


SRA200 

TM2L(100) 

h 2 , <U 

SRA200 

TTPHIL(34) 

T (1) 
t 4>0 

SRA200 

TT1M1(100) 

meridional stress resultant (Ti) 
of previous iteration 

SRA200, INPUT 

TT2L(100) 

*20 

SRA200 

ZM1 (1,100) 

displacement mode (g = constant) of 
rigid body acceleration 

RBMODE 


SRA 201 

External files .- SRA 201 uses three external files: TAPE2, TAPE3, 

and PUNCH. TAPE2 and TAPE3 are the standard input and output files, 
respectively. At the user’s option, the buckling mode data required 
for SRA 202 may be written onto PUNCH. 

Overall logical flow of SRA 201 .- Essential features of the overall 
flow of SRA 201 are listed below. 

SRA201 (MAIN PROGRAM) 

Call INPUT 

INPUT 

Read and write case title card. If end-of-file, stop 

Read case option card: LOOP, NSG, NWP, NFM, NST, NPG, NML, NIC, NASE, 

MAXMOD, NTL, NDER, SIGDIG, GUESS, RTABL, ISSl, ISS2, 
ISS3, ISS5, ISS6 
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If MAXMOD > 1, read card of eigenvalue shifts for higher modes 
Read basic input tables 

Geometry: N0UT2, N0UT1, N0UT3, TS, TR, TRP, TRR2, TXB 

Wall properties: TE1, TE2, TE12, TNU1, TH 

Foundation moduli: TK1, TK2, TK3 

Stringer properties: TEAST, TEIST, TGJST, TZBST 

Pressure field: TX30, TX3X, TX3Y 

Call SETUP to construct geometric parameters: NDIS, TDIS, JENT, IBR, 

NBR, IEND, KEND 

Read standard prebuckling data (if NML ^ 0) consisting of the variables 
FLAM, LTYPE 

TTPHIN, TT1N, TT2N, TCHIN 
TTPHIO, TTIO, TT20, TCHIO 
Write input tables 

Set KASE = 2 if complementary solutions of previous case apply, otherwise 
KASE =3 

If NIC - 0, make NOUTl-table negative at all boundaries except dome 
closures (to indicate boundary data comes from previous case) 

Call BC to read or generate boundary matrices BBP and BD for each boundary 

Calculate scale factors required for START 

Return 

SRA201 

Compute and store partially inverted shell wall rigidities at output 
points for future use by PRODl 

If shell has rigid body freedom (FN < 1. and NDER input nonzero) compute, 
store and write the appropriate rigid body modes. Increase MINMOD 
from 1 by the number of rigid body modes stored 
If KASE - 3, calculate and store the complementary solutions 
Set up DO-loop for buckling modes, with index (MODE) running from MINMOD 
to MAXMOD 

1. Generate (quadratic) initial guess for buckling mode displacements 

2. If MODE -1 > 0, orthogonalize current mode estimate with respect 
to previous stored modes 

3. Write eigenvalue shift and set up iteration loop for buckling mode 

4. Calculate, from current mode estimate, boundary matrices SL 
for dome and ring boundaries 

5. Compute particular solution for new buckling mode estimate 

6. Superimpose particular and complementary solutions to obtain new 
buckling mode estimate (Y,Z) 

7. If MODE -1 > 0, orthogonalize new buckling mode estimate with 
respect to previous stored modes 

8. Calculate the Rayleigh quotient, which is the new eigenvalue 
estimate (OMEGA1) 

9. Write iteration number and eigenvalue estimate 
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10. Test for convergence of successive eigenvalue estimates to SIGDIG 
significant digits. If converged, go to step 19 

11. Test for convergence of sequence of ratios of successive differ- 
ences of eigenvalue estimates to one significant digit. If not 
converged, go to step 16 

12. Estimate the number of iterations required to achieve eigenvalue 
convergence. If seven or less, go to step 16 

13. Make an eigenvalue shift to an estimate of desired eigenvalue 

14. If necessary, remove artificial rigid body constraints 

15. Correct BD matrices at ring and dome boundaries 

16. Normalize and store buckling mode estimate in YM1, ZMl arrays 

17. If an eigenvalue shift has been made (GUESS / GUESSS), compute 
and store new complementary solutions, and go to step 3 

18. Go to step 4 

19. If a higher mode remains to be calculated, store new mode in 
YMODE, ZMODE for future use in orthogonalization process 

20. Improve eigenvalue estimate by using ratio of successive differ- 
ences of eigenvalue sequence 

21. Normalize and write last two buckling modes and eigenvalue 

22. If a higher mode remains to be calculated with a new eigenvalue 
shift (FLAG « 2.), perform steps 14, 15, and compute and store 
new complementary solutions 

23. End of MODE DO-loop 
Call INPUT for next case 

Subprogram descriptions for SEA 201 .- SEA 201 consists of 20 
contractor-supplied subprograms (fig* 21) . Those subprograms which have 
features special to SEA 20.1 are described below. For descriptions of the 
remaining subprograms of SEA 201, see page 121. 

SEA201 


This is the main subprogram of SEA 201. Its essential function is 
to set up and control the iteration process for each buckling mode 
requested. It is described in more detail in the overall logical flow of 
this program. 

INPUT 

This subprogram (and its subroutines) reads and writes all of the 
input data, and prepares the homogeneous parts of the boundary conditions 
It is described in more detail in the overall logical flow of this program 

PE0D1(Z,Z1) 

This function calculates the shell contribution to the inner product 
of two modal fields (Y,Z) and (Yl, Zl) . The integration over the shell 
meridian is performed by Simpson* s rule. The displacements Z, Zl are 
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passed through the calling sequence, whereas the forces Y, Y1 are 
available through blank COMMON. The ring contribution (PR0D2) to the 
inner product is calculated in SRA201 and is always added to PR0D1 to 
obtain the full inner product before it is used. An approximate 
contribution over the small deleted cap at dome closure boundaries is 
included in PR0D1. 

Major FORTRAN variables of SRA 201 .- Major variables which have 
special meaning for SRA 201 are defined below. For SRA 201 variables 
which are common to other programs, see page 126. 




Subprogram 

where 

Variable 

Definition 

generated 

GLAM 

FLAM + GUESS 

INPUT 

GUESS 

eigenvalue shift 

INPUT, SRA201 

ISS1 

flag to punch buckling mode data 
for SRA 202 

INPUT 

ITER 

iteration number 

SRA201 

NML 

flag for prebuckling data deck 

INPUT 

NTL 

flag indicating torsional ( n = 0) 
mode - 

SRA201 

TCHI2(100) 

rotation field (x) of the buckling 
mode estimate two iterations ago 

SRA201 

TGUESS(4) 

eigenvalue shifts for higher 
buckling modes 

INPUT 


SRA 202 

External files .- SRA 202 uses three external files: TAPE1, TAPES, 

and TAPE6. TAPES and TAPE6 are the standard input and output files, 
respectively. TAPE1 is used to store the data contained in C0MM0N/0V1/, 
which is not used by primary overlay 2. 

Overall logical flow of SRA 202 .- This program consists of a main 
overlay and two primary overlays (fig. 22). Essential features of its 
overall flow are listed below. 

MAIN 

Read and write case title card 

IDONE = 0 

ITER = 0 

Call OVERLAY 1 


111 



OVERLAY 1 


Read case option card: LOOP, NSG, NWP, NFM, NST, NPG, NML, NIC, RTABL, 

ISS4, ISSW6 

Set FN = 0. 

Read basic input tables 

Geometry: NOUT2, N0UT1, NOUT3, TS, TR, TRP, TRR2, TXB 

Wall properties: TE1, TE2 , TE12, TNU1, TH 

Foundation moduli: TK1, TK2, TK3 

Stringer properties: TEAST, TEIST, TGJST, TZBST 

Pressure field: TX30, TX3X, TX3Y 

Call SETUP to construct geometric parameters: NDIS, TDI.S, JENT, IBR, ' 

NBR, IEND, KEND 

Read standard prebuckling data (if NML ^ 0) , consisting of the variables 
FLAM, LTYPE 

TTPHIN, TTIN, TT2N, TCHIN 
TTPHIO, TT10 , TT20, TCHIO 

Read additional prebuckling data (if NML and ISS4 ^ 0), consisting of the 
variables 
TMYN, TMYO 

TMlN , TM10 , TM2N, TM20 
TPHI1, TT11, TT21, TCHI1 
STIFN, STIFO 
Write input tables 

Read first buckling mode data card containing 
FNC, NTLC, GUESS 

Write harmonic number (FNC) and critical load (FLAM + GUESS) 

Read and write buckling mode data consisting of components of Y and Z 
Compute buckling mode shell stress resultants : TT1C, TT2C, TT12C 

Compute buckling mode rotations: TCHIC, TPSIC, TTHETC 

Compute buckling mode normal strains: TEPSIC, TEPS2C, TCAP1C, TCAP2C 

Compute prebuckling shell stress resultants and rotations at buckling load: 
TT1N0 , TT2N0 , TCHINO 

If NIC = 0, make NOUTl-table negative at all boundaries except dome 
closures (to indicate boundary data comes from previous case) 

Call BC to read or generate boundary matrices BBP, BD, and SL for each 
boundary and calculate buckling mode ring hoop force and rotations 
(TPHIC , TWXC, TWYC) 

Compute prebuckling stiffness (STIFNO) at buckling load (if ISS4 ^ 0) 
Compute and write inner product (PRODC) 

Correct and write corrected inner product (if ISS4 ^ 0) 

Compute and write a(AMAX) for imperfection shape giving the maximum value 
of a 

Compute and write B(BMAX) for imperfection shape giving the maximum value 
of a (if ISS4 i 0) 

Compute and write a(AMODE) and ratio (FI1) of maximum normal amplitude to 
angular amplitude for buckling mode imperfection 
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Compute and write g(BMODE) for buckling mode imperfection (if ISS4 ^ 0) 

Compute stiffness functional (S1E1) 

Buffer out labeled common (TAPE1) 

If FNC « 0., compute and write 1st postbuckling coefficient (SA) and 
postbuckling stiffness (STI'F) (if ISS4 ^ 0); set IDONE = 1 and 
return to MAIN for next case 

Set up artificial rigid body constraint (s) , if necessary, for boundary 
value problem for axisymmetric component of second-order post- 
buckling state 

Return 

MAIN 

Check to make sure all buffered data is out of core 

Call OVERLAY 2 

OVERLAY 2 


Compute complementary solutions for axisymmetric component of second- 
order state 

Compute particular solution 

Combine complementary and particular solutions to form axisymmetric 
solution (Y,Z) 

Return 

MAIN 

Call OVERLAY 1 
OVERLAY 1 


Buffer in labeled common 
Write axisymmetric solution 

Check to make sure all buffered data is in core 
Compute associated shell stress resultants: TT1S0, TT2S0 

Compute associated shell rotations: TCHISO 

Compute associated shell strains: EPS1S0, EPS2S0, CAP1S0, CAP2S0 

Compute associated ring stress resultants: TPHISO 

Compute associated ring strains: TEPSSO 

If ISS4 i 0, compute 00** e 2 (S0E2) 

Set m = 2.*FNC 
Save NOUTl-table 

Make N0UT1 negative at all boundaries except dome closures 
Call BC to recompute BBP, BD, SL matrices for ring (N0UT1 = -1) and 
dome boundaries (N0UT1 - 4) 

Restore NOUTl-table for next case 
Buffer out labeled common 

Eliminate artificial rigid body constraint (s) if necessary 
Return 
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MAIN 


Check to make sure all buffered data is out of core 
Call OVERLAY 2 

OVERLAY 2 

Compute complementary solutions for nonsymmetric component of second- 
order state 

Compute particular solution for nonsymmetric component 
Combine complementary and particular solutions to form nonsymmetric 
solution (Y,Z) 

Return 

MAIN 

Call OVERLAY 1 
OVERLAY 1 


Buffer in labeled common 
Write nonsymmetric solution 

Check to make sure all buffered data is in core 

Compute associated shell stress resultants: TT1SN , TT2SN, TT12S 

Compute associated shell rotations: TCHISN, TPS IS, TTHETS 

Compute associated ring stress resultants : TPHISN 

Compute associated ring rotations: TWXS, TWYS 

Compute and write 2nd postbuckling coefficient (SB) 

IDONE = 1 

If ISS4 f 0, compute postbuckling stiffness (STIF) and write STIFNO and 
STIF 

Return to MAIN for next case 

Subprogram descriptions for SRA 202 ,- SRA 202 consists of 20 
contractor-supplied subprograms (fig. 22)* Those subprograms which have 
features special to SRA 202 are described below. For descriptions of 
the remaining subprograms of SRA 202, see page 121. 

MAIN 


This program always resides in core and calls the two primary 
overlays. It reads and prints the title card and terminates the job when 
completed. 

PRIMARY OVERLAY 1 

This overlay consists of the main subprogram INPUT and five 
contractor-supplied subroutines (fig. 22) . This overlay essentially 
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performs all functions other than the actual solution of the differential 
equations for the second-order postbuckling state. 

INPUT 


This subprogram reads, writes, and processes all of the input data. 
It prepares the boundary conditions for the axisymmetric and nonsymmetric 
problems and processes their solutions. It writes all output results. 

INTI 


This subroutine computes by quadrature nine different functionals 
required in the evaluation of a, b, a, 3, and K*. Integrations over the 
shell meridian are performed by Simpson’s rule. The functional to be 
computed is determined by the value of the parameter INTGRD , which is 
transmitted to INTI through blank COMMON. The functionals which are 
calculated are given in a table on page 93 of reference 4. In reference 
to that table, it is noted that since the program was originally 
developed, it has been discovered that ctq**£i = 0, so that the calculation 
of this functional (for INTGRD = 3) is superfluous. 

1112 


This subroutine is similar to INTI except that it computes two 
functionals simultaneously each time it is entered. As with INTI, the 
parameter INTGRD determines the functionals to be computed. The table on 
page 94 of reference 4 gives the functionals calculated and the 
corresponding values of INTGRD. 

PRIMARY OVERLAY 2 


This overlay consists of the main subprogram SRA202 and twelve 
contractor-supplied subroutines (fig. 22). Its only function is to 
compute the axisymmetric and nonsymmetric components of the second-order 
postbuckling state for processing by PRIMARY OVERLAY 1. It accomplishes 
this task by solution of the linear boundary- value problem for each of 
these components. 

SRA202 


This subprogram sets up the initial conditions for the forward 
integration to obtain complementary and particular solutions of the 
differential equations for the axisymmetric problem (in the first pass 
through OVERLAY 2) and the nonsymmetric problem (in the second pass 
through OVERLAY 2) . It also combines the complementary and particular 
solutions to form the solution for each of these problems. 
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Major FORTRAN variables of SRA 202 .- Major variables which have special 
meaning for SRA 202 are defined below. For SRA 202 variables which are 
common to other programs, see page 126. 


Variable 

Definition 

Subprogram 

where 

generated 

AMAX 

maximum value of a 

INPUT 

AMODE 

a for buckling mode imperfection 

INPUT 

BMAX 

6 for imperfection giving maximum 

INPUT 

BMODE 

value of a 

g for buckling mode imperfection 

INPUT 

CAP ISO (100) 


INPUT 

CAP2S0(100) 

U X 
0 K 2 

INPUT 

EPSISO(IOO) 

0 E 1 

INPUT 

EPS2S0(100) 

0 e 2 

INPUT 

FI1, FI 2 

functional values computed by 11.12 

1112 

FN 

harmonic number (n) of second-order 

INPUT 


postbuckling component being 
calculated 


FNC 

n c 

INPUT 

GLAM 

*c 

INPUT 

GUESS 

^c “ X 0 

INPUT 

IDONE 

flag to indicate when solution is 
complete 

MAIN, INPUT 

INTGRD 

flag to determine function of 1112 
and INTI 

INPUT 

IOP 

logical output unit number 

MAIN 

IP 

logical input unit number 

MAIN 

ISS4 

flag to indicate if additional 
prebuckling deck is present (for g 
and K* calculations) 

INPUT 

ITER 

flag to indicate which pass is 
being made through OVERLAY 1 

MAIN, SRA202 

NML 

flag for prebuckling data deck 

INPUT 

NTLC 

flag for axisymmetric torsional 
buckling mode 

INPUT 

PRODC 

inner product of buckling mode 

INPUT 

SA 

first postbuckling coefficient, a 

INPUT 

SB 

b 

INPUT 

STIF 

K* 

INPUT 

STIFN 

K o 

INPUT 

STIFNO 

prebuckling stiffness K at 
bifurcation load A c 

INPUT 
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Variable 

Definition 

Subprogram 

where 

generated 

STIFO 

KqU-) 

INPUT 

SUM1 

functional value computed by INTI 

INTI 

S0E2 

°0** e 2 

INPUT 

S1E1 

°1* £ 1 

INPUT 

TCAP1C (100) 

1 K 1 

INPUT 

TCAP2C(100) 

1 k 2 

INPUT 

TCHIC(IOO) 

l x 

INPUT 

TCHINO(IOO) 

X 0 

INPUT 

TCHISN(IOO) 

2 X 

INPUT 

TCHISO(IOO) 

o x 

INPUT 

TCHIl(lOO) 

X 0 (2) 

INPUT 

TCI (100) 

C 1 

INPUT 

TEPSS0(34) 

O e <l> 

INPUT 

TEPS1C (100) 

l e l 

INPUT 

TEPS2C(100) 

l e 2 

INPUT 

TG(IOO) 

shell wall shear stiffness 

INPUT 

TMY0(34) 

M y 0 (1> 

INPUT 

TMIO(IOO) 

M, (i) 

INPUT 

TM20(100) 

M (1) 
20 

INPUT 

TPHIC(34) 

T 

INPUT 

TPHISN(34) 

T 

21 

INPUT 

TPHIS0(34) 

T 

INPUT 

TPHI1(34) 

rn ( 2 ) 

4>o 

INPUT 

TPSIC(IOO) 

1* 

INPUT 

TPSIS(IOO) 

2^ 

INPUT 

TTHETC(IOO) 

1* 

INPUT 

TTHETS(IOO) 

2» 

INPUT 

TTIC(IOO) 

T 

11 

INPUT 

TTINO(IOO) 

T l 0 at X = X c 

INPUT 

TTISN(IOO) 

T 

2 1 

INPUT 

TTISO(IOO) 

T 

0 1 

INPUT 
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Subprogram 

where 


Variable 

Definition 

generated 

TT11(100) 

V 2) 

INPUT 

TT12C(100) 

T 

1 12 

INPUT 

TT12S(100) 

T 

2 12 

INPUT 

TT2C(100) 

T 

12 

INPUT 

TT2N0(100) 

T 0 at X = X 
2-0 G 
T 

2 2 

INPUT 

TT2SN(100) 

INPUT 

TT2S0(100) 

T 

02 mn 

INPUT 

TT21(100) 

T (2) 
2 0 

l W x 

INPUT 

TOXC(34) 

INPUT 

TWXS (34) 

2 W x 

INPUT 

TWYC(34) 

-W 

i y 

INPUT 

TOYS (34) 

2 W y 

INPUT 

Z(4,100) 

solutions for {z}; also used to store 

INPUT 


■jS. 1 n, jV, 1 x 


SRA 300 

External files .- SEA 300 uses three external files: TAPE2, TAPE3, 

and PUNCH. TAPE2 and TAPE 3 are the standard input and output files, 
respectively. At the user's option, the vibration mode displacements 
referred to shell coordinates may be written onto PUNCH. 

Overall logical flow of SRA 300 .- Essential features of the overall 
flow of SRA 300 are listed below. 

SRA300 (MAIN PROGRAM) 

Call INPUT 

INPUT 


Read and write case title card. If end-of-file, stop 

Read case option card: LOOP, NSG, NWP, NEM, NST, NML, NPG, NPS, NIC, 

NASE, MAXMOD, NTL, NDER, SIGDIG, GUESS, RTABL, 
I.SS2, ISS3, ISS4, ISS5, ISS6 
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Read basic input tables 

Geometry: N0UT2, N0UT1, NOUT3, TS, TR, TRP, TRR2, TXB 

Wall properties: TE1, TE2, TE12, TNUl, TH 

Foundation moduli: TK1, TK2, TK3 

Stringer properties: TEAST, TEIST, TGJST, TZBST 

Mass densities: TRHOM 

Pressure field: TX30, TX3X, TX3Y 

Call SETUP to construct geometric parameters: NDIS, TDIS, JENT , IBR 

NBR, TEND, KEND 

If NPS =1, read standard prebuckling state data to obtain the initial 
equilibrium state variables (If NPS - 2, set initial equilibrium 
state to zero) : 

FLAM, LTYPE 

TTPHIN, TTIN, TT2N, TCHIN 
Write input tables 

Set - KASE = 2 if complementary solutions of previous case apply, otherwise 
set KASE ■« 3 

Calculate and store mass moments (TEM, TEMB, TEMBB) through shell wall 
at output points for future use by PR0D1 
If NIC = 0, make NOUTl-table negative at all boundaries except dome 
closures (to indicate boundary data comes from previous case) 

Call BC to read or generate boundary matrices BBP and BD for each 
boundary 

Calculate scale factors required for START 
Return 

SRA300 


If shell has rigid body freedom (FN < 1. and NDER input nonzero) 

compute, store, and write the appropriate rigid body modes. Increase 

MINMOD from 1 by the number of rigid body modes stored 
If KASE = 3, calculate and store the complementary solutions 
Set up DO-loop for vibration modes, with index (MODE) running from 

MINMOD to MAXMOD 

1* Generate initial guess for vibration mode displacements 

2. If MODE -1 > 0, orthogonalize current mode estimate with respect 
to previous stored modes 

3* Write eigenvalue shift and set up iteration loop for vibration 
mode 

4. Calculate, from current mode estimate, boundary matrices SL for 
dome and ring boundaries 

5. Compute particular solution for new vibration mode estimate 

6. Superimpose particular and complementary solutions for new 
vibration mode estimate (Y,Z) 

7. If MODE -1 > 0, orthogonalize new vibration mode estimate with 
respect to previous stored modes 

8. Calculate the Rayleigh quotient, which is the new eigenvalue 
estimate (0MEGA1) 
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9. Write iteration number and eigenvalue estimate 

10. Test for convergence of successive eigenvalue estimates to SIGDIG 
significant digits. If converged, to to step 19 

11. Test for convergence of the sequence of ratios of successive 
differences of eigenvalue estimates to one significant digit. If 
not converged, to to step 16 

12. Estimate the number of iterations required to achieve eigenvalue 
convergence. If five or less, go to step 16 

13. Make an eigenvalue shift to an estimate of desired eigenvalue 

14. If necessary, remove artificial rigid body constraints 

15. Correct BD matrices at ring and dome boundaries 

16. Normalize and store vibration mode estimate in YM1, ZM1 arrays 

17. If an eigenvalue shift has been made (GUESS ^ GUESSS) , compute 
and store new complementary solutions, and go to step 3 

18. Go to step 4 

19. Normalize new vibration mode 

20. If no higher modes remain to be calculated, go to step 23 

21. If five or more lower modes have already been stored, only the 
most recent four modes are retained, and FLAG is set to 2. 

to indicate more modes are to be obtained with a new eigenvalue 
shift 

22. Store the new mode in YMODE, ZMODE for future use in orthogonali- 
zation process 

23. Improve eigenvalue estimate by using the ratio of successive 
differences of eigenvalue sequence 

24. Write last two normalized vibration mode estimates and frequency 
(square root of eigenvalue) 

25. If a higher mode remains to be calculated with a new eigenvalue 
shift (FLAG - 2.) , perform steps 14 and 15 and compute and store 
new complementary solutions 

26. End of MODE DO-loop 
Call INPUT for next case 

Subprogram descriptions for SRA 300 .- SRA 300 consists of 20 
contractor-supplied subprograms. Figure 2l for SRA 201 applies to SRA 300 
as well if the main subprogram shown, SRA201 , is replaced by subprogram 
SRA300. Also, the subprogram descriptiois for SRA 201, given on page no, 
apply as well to SRA 300 if the name SRA201 is replaced there by SRA300. 
Also, since the inner product for vibrations does not depend on the modal 
forces Y, references to Y and Y1 in the description of PR0D1 should be 
ignored. For descriptions of the remaining subprograms of SRA 300, 
see page 121. 

Major FORTRAN variables of SRA 300 .- Major variables which have 
special meaning for SRA 300 are defined below. For SRA 300 variables 
which are common to ther programs, see page 126. 
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Variable 

Definition 


Subprogram 

where 

generated 

GUESS 

eigenvalue shift 


INPUT, SRA300 

ISS4 

flag to determine eigenvalue 

shift 

INPUT 

ITER 

used in calculation of vibration 
modes higher than the sixth 
iteration number 

SRA300 

NML 

flag for mass density tables 


INPUT 

NPS 

flag for initial equilibrium 

state 

INPUT 


data 




Subprogram Descriptions Applicable to Several Programs 
BC 

This subroutine is called by INPUT to read and write the input 
boundary data. In addition, for all programs other than SEA 101, it 
generates the homogeneous boundary condition matrices [B] and [D] for 
ring and (through use of DOME) for dome boundaries. For SEA 100, SEA 200, 
and SEA 202, BC also generates the boundary load matrix {L>. 

CNT 

This subroutine is called by EKS3 at the end of each Eunge-Kutta 
integration step. Upon each entry to CNT during the integration for 
complementary solutions,* it performs the following functions: 

1. checks the growth of x to determine if the sub interval is too 
long, 

2. forces the integration to land on the specified entry points, 
and stores the values of the complementary solutions at these 
points in the arrays PEU and PEW. Additional complementary 
solutions calculated on a closed branch are stored in the 
arrays PEV and PRZ, 

3. restarts the integration at each point of subdivision with 
initial conditions which it calculates through use of subroutine 
START, 

4. accumulates [p] on a closed branch, and 

5. terminates the integration process at the final point of the 
shell meridian. 


Programs SEA 100 and SEA 200 compute complementary solutions (if 
necessary) simultaneously with the particular solution. Programs 
SEA 101, SEA 201, SEA 202, and SEA 300 always compute complementary and 
particular solutions separately. 
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Functions (3) and (5) above are also performed upon each entry to CNT 
during integration for particular solutions. Also, during particular 
solution integration, CNT performs the following additional functions: 

1 . forces the integration to land on the specified entry points, 
and stores the values of the particular solution in the arrays 
PRG and PRJ, 

2 . accumulates [p] and {q} on a closed branch, and 

3. calculates the superposition constants {c} for each sub interval 
and stores them in the CV array* It also calculates additional 
superposition constants {d} required on a closed branch and 
stores them in the DV array. 

PER 

Upon each call from RKS3, this subroutine computes the derivatives 
fi(s,yi) for RKS3 using the values of s and y^ provided by RKS3. This 
subprogram is entered eight times for each full integration step. In 
SEA 101, DER call INTRPL for the interpolation of all variables, 
including the equivalent forces Fi, F 2 , F 3 , F 4 . In other programs 
interpolation is accomplished for each variable through use of the 
SLOPE routines. In SRA201, interpolated values of the prebuckling stress 
resultants and buckling rotations are obtained and the equivalent forces 
then calculated from them. 

DOME (II , I ,BBP,BD , SN , FN) 

This subroutine calculates the boundary condition matrices [B] and 
[D] at an edge of small radius, to simulate the effect of a dome 
closure. Upon the call to DOME, I is the entry number and II the 
boundary number of the edge being treated. Also, SN = -1 if the edge 
is the terminal point; otherwise SN = +1. In all programs other than 
SRA 101, the variables BBP, BD, SN, and M are passed through common 
blocks instead of the calling sequence. 

DOME is also used simply to calculate the shell wall stiffnesses. 

In this case, the call to DOME is made with II = 0, and the wall 
stiffnesses (excluding stringer effects) are stored in TTABl(I) , TTAB2(I) , 
and TTAB3(I). The following table gives the meaning of these arrays. 


I 

TTABl(I) 

TTAB2(I) 

TTAB3(I) 

1 

Cl (0) 

Cl (D 

&!< 2 ) 

2 

c 2 <0) 

Cad) 

C 2 <2) 

3 


r ( 1 ) 
c 12 

Cl2 (2) 

4 

G<0) 

g(D 

g(2) 
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In this table the wall stiffnesses are defined as follows: 
c m (n > *? /[E m /(1 - ViV 2 )]z n dz 
C 12 < n > = /vi E 2 /(l ■“ viv 2 )z n dz 
= /E 12 z n dz 

where the integrals are through the shell wall thickness, z is the 
normal distance from the reference surface, and m - 1 or 2, n = 0, 1, or 2. 

MADD (A, B , R,N , M) 


This subroutine forms the sum R - A + B, where A, B, and R are NxM 
matrices. 

MCPY(A,R,N,M) 

This subroutine forms the matrix R * A, where A and R are N*M 
matrices . 

MINV (A,N,D,L,M) 


This is a general purpose subroutine which calculates the inverse 
of an NxN matrix A by the standard Gauss -Jordan method. The parameters 
L and M are two work regions of length N provided to MINV by the calling 
program. Upon return to the calling program, A is replaced by its 
inverse and D contains the normalized determinant of A, i.e. , its 
determinant divided by the product of its diagonal elements. As in all 
of the matrix arithmetic subroutines, MINV treats all matrices as one- 
dimensional arrays. 

MPRD (A,B,R,N,M,L) 

I 

This subroutine forms the product R - AB, where A is an NxM 
matrix, B is a MxL matrix, and R is the resultant NxL matrix. 

MSUB(A,B,R,N,M) 

This subroutine forms the difference R = A - B, where A, B, and R 
are NxM matrices. 

RBROT (TS , TR, TRR2 , LSTAB ,N0UT3 , IBR,NBR, TEND , KENT , Z) 

This subroutine calculates the displacement amplitudes of a unit 
rigid body rotation about a transverse axis which: (1) lies in the 
small circle plane of the initial entry point, (2) is normal to the 
axial plane <J> - 0, and (3) intersects the axis of revolution. These 
first harmonic displacements are stored in the Z-array. 
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RKS3(DER, CNT , Y1 , DY1 , ATABL , RTABL , WORK, S ,DS ,NEQ , IFVD , IBKP , NTRY , IEEE.) 

This is a general purpose subroutine which integrates a system of 
first-order ordinary differential equations of the form dy^/ds = f^(s,y^) 
by the fourth-order Runge-Kutta method. Each integration step is 
actually performed in two half-steps, each using conventional Runge-Kutta, 
to obtain midpoint values of the derivatives f^. These are used along 
with the derivatives at the initial and end points to form a Simpson f s 
rule evaluation for the full step. The magnitude of the difference 
between the Runge-Kutta integration over the two half-steps and the 
Simpson 1 s rule integration over the full step is taken as an indication 
of the truncation error and is used as a basis for modification of the 
step size. Automatic step modification is contolled by values of the 
absolute (ATABL) and relative (RTABL) error tolerances provided to the 
routine. Since RKS3 has no COMMON block, all communication with it is 
through its calling sequence. The values IFVD = 0 and IBKP = 1 are 
used to indicate integration in a variable step size mode. The 
parameter IERR is set to zero on a normal return from RKS3. 


SETUP (TS ,LSTAB ,LTAB ,N0UT3,NDIS, TDIS, JENT, IBR, NBR, IEND , KEND ) 


This subroutine is called once per case by INPUT in order to 
construct the geometrical parameters NDIS, TDIS (34), JENT (34), IBR(7), 
NBR( 7, 4), IEND, and KEND. 

SLOPE (X,LS TAB 1) 

This subroutine performs linear interpolation with respect to s on 
the one- dimensional arrays X representing input tables. 

_SL0PE1 (X , LSTAB1, K) 

This subroutine performs linear interpolation with respect to s on 
the two-dimensional arrays X representing input wall properties and 
thermal loads. K (1 < K s 5) gives the number of the appropriate wall 
layer. 

SL0PE2 (X,LSTAB1 ,K,NTERP) 

This subroutine performs quadratic interpolation with respect to s 
on the two-dimensional arrays X representing force and displacement 
vectors. K (1 < K < 4) indicates the component of the 4-component 
vectors to be interpolated. 

SLOPE 3 (X, LSTAB1 ,NTERP) 

This subroutine performs quadratic interpolation with respect to s 
on the one- dimensional arrays X representing the stress resultants and 
rotations. 
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START (B , D , FL , Y1 ,NJE ,KASE , SCI , SC2 ,LOOP ,M) 

This subroutine calculates the initial conditions for the integration 
of the complementary and particular solutions over each subinterval* It 
is entered once from CNT at the end of the integration of each subinterval 
other than the last sub interval* For open branch shells, it is also 
entered once before starting the integration in order to obtain the 
initial conditions for the first sub interval. 

The initial conditions are placed in the dependent variable array Y1 
according to the partitioning 



where the column of {G} and {J} is the particular solution vector, the 
columns of [U] and [W] are the four basic complementary solution vectors, 
and the columns of [V] and [Z] are the four additional complementary 
solutions vectors required on closed branches. 

START employs the supplemental initial conditions 

[W] = [I] 

{J} = (0) 

for force-free boundaries (NJE = 0) , ring boundaries without kinematic 
constraint ( | NJE | = 1), and all boundaries on closed branches (LOOP - 1) • 
For these boundaries the matrix [B] is nonsingular* For all other types 
of boundaries on open branches these conditions are replaced by the more 
general supplemental initial conditions, which do not require the 
inversion of [B] , 

±[U] + [S][W] = [I] 

±{G} + [S] { J} = {0} 

Here [S] is a diagonal scaling matrix for which the first three diagonal 
elements are each (SCI)'”-*' = Cp^/t and the fourth element is 
(SC2)”**- - Ci (2) /t, where t is an effective thickness given by 

t = [laci^/c ^ 0 )] 1 / 2 

and C 2 ^\ and are respectively the meridional and circum- 

ferential shell wall stretching stiffnesses and the meridional bending 


*For closed branch shells, the initial conditions for the first 

subinterval are always [U] = [Z] = [I], [V] = [W] = [0], and 
{G} = {J} = {0}. 
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stiffness. The purpose of [S] is to provide dimensional homogeneity of 
the supplemental conditions. In regards to the ambiguous signs in these 
conditions, the plus sign leads to the use of [BS — p]"^, whefeas the 
minus sign leads to [BS + D]~^; Therefore, the plus sign is used if the 
normalized determinant (i.e., the determinant of a matrix divided by the 
product of its diagonal elements) of [BS - D] is greater than HT^. 
Otherwise, the plus (or minus) sign is used if the normalized determinant 
of [BS + D] is less (or greater) than that of [BS - D] . 

On a closed branch when calculating the initial conditions for the 
additional set of complementary solutions (M = 5), the supplemental 
initial conditions 

[Z] = [I] 
are always used. 


Major FORTRAN Variables Common To Several Programs 


Variable 


Definition 


Subprogram 

where 

generated 


A(4,4) 

ATABL 

B(4,4) 

BBP(4,4,34) 

BD(4,4,34) 

C(4,4) 

CABD1(5) 

CABD2(5) 
COMENT (5) 
CV(4,33) 

D(4,4) 

DELTA1 

DELTA2 

DS 


ring eccentricity matrix, [e] 

BC, BC1 

absolute error tolerance for variable 
step Runge-Kutta integration 

INPUT, MA.IN1 

[B] matrix for a ring, [B]” 1 = [e] T /r 

BC, BC1 

stored [B] matrices 

BC, BC1 

stored [D] matrices 

BC, BC1 

ring stiffness matrix, [k] 

BC, BC1 

input table data on next to last card 
read 

INPUT 

input table data on last card read 

INPUT 

interpolated table data 

INPUT 

superposition constants for four basic 
complementary solutions , { c } 

CNT 

[D] matrix for a ring, [D] = - [k][e] 

BC, BC1 

current difference of successive 
eigenvalue estimates 

SRA201, SEA300 

previous difference of successive 
eigenvalue estimates 

SSA201, SRA300 

size for next Runge-Kutta step 

CNT, calling 
program for KKS3 


*In some cases, the dimensions of these variables are different in 
different programs. For these variables, only the maximum dimensions 
are shown. 
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Subprogram 

where 


Variable 

Definition 

generated 

DSS 

size of previous Runge-Kutta step 

CNT 

DV(4,33) 

superposition constants for additional 
four complementary solutions required 
on a closed branch, {d} 

CNT 

DY1(8,9) 

current derivative values for 
complementary and/or particular 
solutions 

DER 

El(5) ,E12(5) ,E2(5) 

local values of elastic moduli Ej , E 12 , 
E 2 for each layer 

DER, INTRPL 

EST 

improved eigenvalue estimate 

SRA201, SRA300 

FL(4) 

nonhomogeneous boundary condition 
vector, {L} 

SRA201, SRA300, 
BC, RBMODE 

FLAG 

flag indicating if we are in 
automatic eigenvalue shift logic 
simply to improve converged estimate 
(FLAG = 1.) » or if higher modes are 
required with new eigenvalue shift 
(FLAG = 2.) 

SRA201, SRA300 

FLAM 

load factor for nonlinear prebuckling’ 
state, Xq 

INPUT 

FN 

harmonic number, n 

INPUT, MAIN1 

FN2 


INPUT 

FNU1(5) 

current values of Poisson 1 s ratio 
Vi for each layer 

DER, INTRPL 

GUESSS 

previous value of GUESS after 
automatic eigenvalue shift or value 
of GUESS from previous case 

SRA201, SRA300, 
INPUT 

IBR(7) 

number of branches emanating from 
each branch point 

SETUP 

IBR1(7) 

current number of converging 
branches already integrated to each 
branch point 

CNT 

IDERF 

number of solution vectors being 
integrated 

calling program 
for RKS3 

IEND(21) 

ordered list of edge entry numbers 
excluding entries 1 and LSTAB 

SETUP 

ISS2 

if nonzero, punch modal data or shell 
stresses 

INPUT 

ISS3 

if nonzero, suppress automatic 
eigenvalue shifting 

INPUT 
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Subprogram 

where 

Variable 

Definition 

generated 

ISS5 

if nonzero, suppress use of mode 
* shape from previous case as initial 
approximation 

INPUT 

ISS6, ISSW6 

if nonzero, override abort if a 
subinterval exceeds length criteria 

INPUT 

ITERM 

Maximum number of iterations allowed 

SRA201, SRA300 

JENT(34) 

table of boundary point entry numbers 

SETUP 

KASE 

parameter to indicate whether 
integration is for complementary 
(KASE = 3) or particular (KASE = 2) 
solutions 

calling program 
for RKS3, INPUT 

KEND 

number of edges excluding entries 1 
and LSTAB 

SETUP 

KMAT ,KVEC,LMAT , 
LVEC ,NMAT ,NVEC 

equivalent addresses used for two 
and three-dimensional arrays 

CNT 

KSMAX 

number of entry points (same as 
LSTAB) 

INPUT 

LCOMP 

flag to indicate use of computed 
{L} vector for rings 

SRA201, SRA300, 
RBMODE 

LOOP 

indicator for closed branch: = 0, 

open branch shell; - 1, current 
branch being treated is closed; > 2, 
closed branch shell, current branch 
being treated is open; - 3, {c} to be 
computed is for subinterval on open 
branch terminating at a closed branch 

INPUT, CNT 

LPROD 

flag to indicate return point from 
PR0D2 calculation, and also (Eor SRA 201) 
force arguments in PR0D1 

RBMODE, SRA201, 
SRA300 

LSTAB 

number of entry points 

INPUT 

LSTAB1 

entry number of first point with 
s-value greater than current value of 
s (during integration) 

CNT, calling 
program for 
RKS3 

LTAB(IOO) 

number of wall layers at each entry 
point 

INPUT 

LTYPE 

flag to indicate live loading 
(LTYPE = 1) 

INPUT 

MAXMOD 

number of eigenmodes desired 

INPUT 

MFLAG 

flag to indicate resultant force 
calculation in PR0D1 

RBMODE 

MINMOD 

order of first eigenmode to be computed 
by iteration ( = 1, if no rigid body 
modes specified) 

SRA201, SRA300 
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Variable 

Definition 

Subprogram 

where 

generated 

MM1 

MODE - 1 

SRA201 » SRA300 , 

MODE 

order of mode being calculated 

SRA201, SRA300 

NASE 

harmonic number, n 

INPUT 

NBR(7,4) 

table of branch point entry 

SETUP 

NDER 

numbers (of branches entering each 
branch point) 

flag to indicate rigid body degrees 

INPUT 

NDIS 

of freedom 

number of boundaries 

SETUP 

NDIS1 

subinterval in which current s-value 

CNT 

NEQ 

resides (during integration) 
number of equations currently being 

CNT, calling 

NFM 

integrated 

flag for foundation moduli table 

program for RKS3 
INPUT 

NIC 

flag for boundary conditions 

INPUT 

NMD 

flag for mass density table 

INPUT 

NOUTl(lOO) 

table to indicate type of boundary 

INPUT 

NOUT2(100) 

table to indicate need for 

INPUT 

NOUT3(100) 

rigid body constraint; also 
indicates a symmetrical ring 
boundary 

table of branch point numbers 

INPUT 

NPG 

flag for pressure field table 

INPUT 

NSG 

flag for geometry table 

INPUT 

NST 

flag for stringer properties table 

INPUT 

NTERP 

parameter used in quadratic inter- 

DER 

NTRY 

polation. NTERP = 0 or 1 indicates 
LSTAB1 - 1 or LSTAB - 2, respectively, 
is the entry number of the first of 
three output points to be used in the 
interpolation 

parameter to control termination. 

CNT, calling 

NWP 

restart, or continuation of Runge- 

Kutta integration 

flag for wall properties table 

program for 

RKS3 

INPUT 

OMEGA1 

new eigenvalue estimate 

SRA201, SRA300 

OMEGA2 

previous eigenvalue estimate 

SRA201, SRA3Q0 

P(4,4) 

[p] 

CNT 

PP(4,4) 

[p] 

CNT 

PRG(4,100) 

particular solution force vectors, {G} 

CNT 

PRJ (4,100) 

particular solution displacement 

CNT 

PROD 2 

vectors, {J} 

ring contribution to inner product 

SRA201, SEA300, 


RBMODE 
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Variable 

Definition 

Subprogram 

where 

generated 

PRS(IOO) 

table of stored s-values [same as 

INPUT 

PRU(4,4,100) 

TS(100) ] 

four basic complementary solution 

CNT 

PRV(4,4,100) 

force vectors, [U] 

additional complementary solution 

CNT 

PRW(4,4,100) 

force vectors required on a closed 
branch, [V] 

four basic complementary solution 

CNT 

PRZ(4,4,100) 

displacement vectors, [W] 
additional complementary solution 

CNT 

Q(4) 

displacement vectors, [Z] 

(q> 

CNT 

RAT 

ratio for interpolation 

DER 

RH01 

new value of DELTA2 / DELTA1 

SRA201, SRA300 

RH02 

previous value of DE LTA2 / DELTA1 

SRA201, SRA300 

RTABL 

relative error tolerance for 

INPUT 

S 

variable step Runge-Kutta 

integration 

current value of s 

CNT, RKS3, 

SCI, SC2 

scale factors required by START 

calling pro- 
gram for EKS3 
CNT, INPUT, 

SH(5) 

local values of half- thickness h for 

calling pro- 
gram for RKS3 
DER, INTRPL 

SFL 

each layer 

flag to indicate surface of 

INPUT 

SIGDIG 

application of dead surface loads 
number of significant digits required 

INPUT 

SL(4,34) 

in iteration programs, N; also set to 
10“ N in SRA 101 
stored {L} matrices 

BC, SRA200 , 

SN 

sign for dome boundary conditions 

SRA201, SRA300 

PLCFOR 

BC, BC1 

TAR (34) 

ring section areas, A 

BC 

TCHIN(IOO) 

x o 

INPUT 

TCHIO(IOO) 

X Q (1) 

INPUT 

TDIS(34) 

table of boundary point s-values 

SETUP 

TDTH1(100,5) 

A0! 

INPUT 

TDTH2(100,5) 

A6 2 

INPUT 

TEA (34) 

ring stretching stiffnesses, EA 

BC 
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Variable 

TEAST(IOO) 

TECCX(34) 

TECCY(34) 

TEIST(IOO) 

TEIX(34) 

TEIXY(34) 

TEIY(34) 

TEM(IOO) 

TEMB(IOO) 

TEMBB(IOO) 

TEST (100) 

TE1(100,5) 

TE2(100,5) 

TE12(100,5) 

TGJST(IOO) 

TGJT(34) 

TH(100,5) 

TIX(34) 

TIXY (34) 

TIY(34) 

TKl(lOO) 

TK2(100) 

TK3(100) 

TLAMIJ (100) , I , J > 

TMUI J(100) , I , J = 

TMYN(34) 

TMIN(IOO) 

TM2N(100) 

TNUl(100,5) 

T0MEGA(4) 

TR(IOO) 


Definition 

total stringer stretching stiffness, 
NEA 

ring axial eccentricities, e x 
ring radial eccentricities, 
total stringer bending stiffness, 

NEI 

ring in-plane bending stiffnesses, EI X 
ring coupling bending stiffness, EI^ 
ring out-of-plane bending 
stiffnesses, Ely 

mass density per unit of surface area 
first mass moment per unit of surface 
area 

second mass moment per unit of 

surface area 

stringer elastic modulus 

Ei 
E2 
Ei 2 

total stringer torsional stiffness,’ 
NGJ - 

ring torsional stiffnesses, GJ 
shell wall layer half-thicknesses, h 
ring section in-plane moments of 
inertia, I x 

ring section products of inertia, I 
ring section out-of-plane moments or 
inertia, I 
kl 
k 2 

k 3 

1,4 partially inverted shell wall normal 
rigidities (Including stringers) 

1,2 partially inverted shell wall shear 
rigidities (including stringers) 

% 

M i 0 

M 2 0 

shell wall orthotropic Poisson 1 s 
rations, v\ 

stored eigenvalues for lower modes 
small circle radius, r 


Subprogram 

where 

generated 

INPUT 

BC 

BC 

INPUT 

BG 

BC 

BC 

INPUT, RBMODE 
INPUT, RBMODE 

INPUT, RBMODE 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

BC 

BC 

BC 

INPUT 

INPUT 

INPUT 

INPUT, SRA201 

INPUT, SRA201 

SRA200, INPUT 
SRA200 , INPUT 
SRA200 , INPUT 
INPUT 

SRA201 

INPUT 
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Subprogram 

where 

Variable 

Definition 

generated 

TRHOM(100,5) 

shell wall layer mass densities, 

INPUT 

TRHOR(34) 

ring mass densities 

INPUT 

TRP(IOO) 

dr/ds 

INPUT 

TRR2(100) 

r/R 2 

INPUT 

TS (100) 

table of s-values 

INPUT 

TSA(34) 

ring radii, a 

BC 

TSBAR(34) 

ring meridional eccentricities, S 

BC 

TTAB1C4), TTAB2(4) 
TTAB3(4), TTAB4(4) 

used to compute shell wall stiffnesses 
(see description of DOME) 

DOME, DRR 

TTHST(IOO) 

stringer free thermal strains 

INPUT 

TTHR(34) 

ring free thermal strains 

BC 

TT HI (100, 5) 

e l 

INPUT 

TTH2(100,5) 

e 2 

INPUT 

TTPHIN (34) 

T *o 

INPUT 

TTPHIO (34) 

T (1) 

INPUT 

TTIN(IOO) 

T io 

INPUT 

TTIO(IOO) 

m (1) 

T lo 

INPUT 

TT2N(100) 

T-2 

0 

INPUT 

TT20(100) 

t 2 & 
0 

INPUT 

TXB(IOO) 

table of reference surface locations 
relative to shell inner surface 

INPUT 

TXl(lOO) 

Xi 

INPUT 

TX3(100) 

x 3 

INPUT 

TX3X(100) 

axial component of pressure gradient, 
8X 3 /8 x 

INPUT 

TX3Y(100) 

radial component of pressure gradient, 
9X 3 / 3y 

INPUT 

TX30(100) 

unit load pressure field, X 3 

INPUT 

TZBAR(34) 

ring normal eccentricities, 5 

BC 

TZBST(IOO) 

stringer normal eccentricity, z 

INPUT 

W0RK(486) 

working storage used by Runge-Kutta 
integration subroutine 

RKS3 

Y(4,100) 

solution for force vector, {y} 

calling pro- 
gram for RKS3 

YK(4,100) 

storage area for ty} used in inner 
product 

SRA201 

YMODE(4,100,3) 

storage area for {y} modes when 
higher modes are to be calculated 

SRA201 

YM1(4,100) 

storage area for {y} estimate of 
previous iteration 

SRA.201, SRA300 
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Variable 

Definition 

Subprogram 

where 

generated 

Yl(8,9) 

current values for complementary and/or 

EKS3, calling 

Z(4,100) 

particular solutions 

solution for displacement vector, {z} 

program for EKS3 
calling pro- 

ZK(4,100) 

storage area for {z} used in inner 

gram for BKS3 
SSA201, SRA300 

ZMODE (4 , 100 , 5) 

product 

storage area for {z} modes when 

SRA201, SRA300 

ZM1(4 ,100) 

higher modes are to be calculated 
storage area for {z} estimate of 

SRA201 , SKA300 

ZZ(4,100) 

previous iteration 

dummy argument for Z in PROD 2 

SRA201, SEA300 

ZZ1(4,100) 

calculation 

dummy argument for Z1 in PROD 2 

SRA201, SRA300 


calculation 
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APPENDIX B 


INPUT AND OUTPUT DATA LISTINGS 


SRA 106 INPUT DATA LISTING 
140 DEGREE SANDWICH CONE 

11111111 6 1 1.-2 

C GEOMETRY TABLE FOLLOWS 



1 

42.036 

39.9 

.93969 

.34202 

.472 


5 

45.6 

43.249 

.93969 

.34202 

.472 


6 

45.6 

43.249 

.93969 

.34202 

.472 


1 8 

68.4 

64.674 

.93969 

.34202 

.472 


19 

68.4 

64.674 

.93969 

.34202 

.472 


31 

91.2 

86.099 

.93969 

.34202 

.472 


32 

91.2 

86.099 

.93969 

.34202 

.472 


44 

114. 

107.524 

.93969 

.34202 

.472 


45 

114. 

107.524 

.93969 

.34202 

.472 


51 

120.892 

114. 

.93969 

.34202 

.472 


WALL 

PROPERTIES 

TABLE FOLLOWS 



1 

1 

9.35*6 

9.35*6 

3.54*6 

.32 

.008 


51 

9.35*6 

9.35*6 

3.54*6 

.32 

.008 

2 

1 





.456 


51 





.456 

3 

1 

9.35*6 

9.35*6 

3.54*6 

.32 

.008 


51 

9.35*6 

9.35*6 

3.54*6 

.32 

.008 


MASS 

DENSITY TABLE FOLLOWS 





5 1.1032 .004521 .2712 

51.1032 .004521 .2712 

C MECHANICAL LOADS TABLE FOLLOWS 


6 1 
5 
9 

12 

15 

18 


-.91738 

-.91371 

-.90820 

-.90452 

-.89839 

-.89226 


22 

25 

28 

31 


-.88368 

-.87510 

-.86530 

-.85426 
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35 

-.83956 

38 

-.81872 

41 

-.79298 

44 

-.74764 

48 

-.67150 

51 

-.52800 

BOUNDARY DATA FOLLOWS 



6.75*6 

8.675 

>. 


1.29*6 

24.81 

1 . 


0 . 


1 . 


6 . 


l. 


). 


1.102*7 1.275*8 

.1312 


7.71*6 

9.35*6 


1 . 

0. 

1.275*8 

9.35*6 


-3.6*5 


6.83*3 -.444 


9.65*7 -4.8295 


SECOND CASE FOLLOWS 


DEGREE SANDWICH CONE 



0 0 0 0 

0 10 1 l 

3 


3 6 

45.6 

43.249 

.93969 

MECHANICAL LOADS 

TABLE 

FOLLOWS 

1 



-.06875 

5 



-.06997 

9 



-.07181 

12 



-.07304 

15 



-.07427 

18 



-.07550 

22 



-.07673 

25 



-.07796 

28 



-.07796 

31 



-.07920 

35 



-.07920 

38 



-.07799 

41 



-.07678 

44 



-.07068 

48 



-.04350 

51 



-.0 


1.-2 

.34202 .472 


135 



c 

.805 

1 

0 . 


BOUNDARY DATA FOLLOWS 


6.75*6 1.29*6 

-.446 
24.81 

‘.102*7 1.275*8 

.1312 

END OF FILE CARO 


7.71*6 -3.6*5 

-17.65 

9.35*6 

1.275*8 

9.35*6 


6.83*3 -.444 
9.65*7-4.8295 
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SR A 100 OUTPUT DATA IISTING 
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T'AH'L p 1 (SURFACE GEOMETRY) 
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T API f 2 (WALL PROPERTIES) 
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TAPLF 5 (MASS DENSITY) 
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SRA 101 INPUT DATA LISTING 


140 DEGREE SANDWICH CONE 



-1 1 

1 1 

111 3 

3.75 

1.-2 

.2534 


4 

1 

17 34 51 





0 

1 

6 






2 

0 

1 





9 

1 

2 3 4 5 6 

7 8 

9 


c 


GEOMETRY TABLE FOLLOWS 




1 6 

1 

1 

42.036 39.9 

.93969 

.34202 

.472 



5 

45.6 43.249 

.93969 

.34202 

.472 



6 

45.6 43.249 

.93969 

.34202 

.472 



18 

68.4 64.674 

,93969 

.34202 

.472 



19 

68.4 64.674 

.93969 

.34202 

.472 



31 

91.2 86.099 

.93969 

.34202 

.472 



32 

91.2 86.099 

.93969 

.34202 

.472 



44 

114. 107.524 

.93969 

.34202 

.472 



45 

114. 107.524 

.93969 

.34202 

.472 


1 

51 

120.892 114. 

.93969 

.34202 

.472 

c 


WALL 

PROPERTIES TABLE FOLLOWS 



2 

1 

1 

9.35*6 9.35*6 

3.54*6 

.32 

.008 



51 

9.35*6 9.35*6 

3.54*6 

.32 

.008 


2 

1 




.456 



51 




.456 


3 

1 

9.35*6 9.35*6 

3.54*6 

.32 

.008 

9 

C 


51 

9.35*6 9.35*6 

3.54*6 

.32 

.008 


BOUNDARY DATA FOLLOWS 





6. 

75*6 

1.29*6 7.71*6 

-3.6*5 

6.83*3 

-.444 

18 

i.675 


24.81 9.35*6 





1.102*7 

1.275*8 1.275*8 


9.65*7 

-4.8295 

0* 



.1312 9.35*6 




C 


N = 

0 PREBUCKLING DATA FOLLOWS 



1 

8.0608E+03 

6-9.2401E*02 



4.8440! 

1 

2 .25735*02 

6.4610E*02 2 2.3352E*02 

5.6241E*02 

3 2.3937E*02 

4 

2 ,4351E*02 

4.1213E*02 5 2.4614E*02 

3.4552E*02 

6 2.4614E*02 

3.45521 

7 

2. 4759E+02 

2.2169E*02 8 2.4465E*02 

1.2070E+02 

9 2.3860E*02 

3.9731! 

10 

2.3042E*02 

-2.4183E*0111 2.2086E+02 

-7.3896E*0 1 12 2.1050E*02 

-1.1201! 

13 

1.9973E+0? 

~1 .40825*0214 1.8886E*02 

-1.6226E+021S 1.7808E*02 

-1.7799! 
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1.6755E*02-1.8934E*0217 1 .5734E*02-1 .9739E+021B 1 .4751E*02-2.0299E*02 
l.4751E*02-2.0299E*0220 1 .3809E*02-2.0680E*0221 1 .2907E*02-2.0932F*02 
l.2047E*02-2.1092E*0223 1 .1226 E*02-2. 1 1B5E*0224 1 .0444E*02-2. 1229E*02 
).6981E*01-2. 1 233E*0226 8.9873E+01-2. 1202E*0227 8.3099E*01-2. 1 137E*02 
1 .6643E+01-2. 1 036E*0229 7.0494E*01-2.0894E*0230 6.4641E*01-2.0706E*02 
5.9076E+01-2.0464E+0232 5.9076E*01-2.0464E+0233 5.3793E*01-?.0162E*02 
V.8788E*01-1.9794E*0235 4.A059E*01-1 ,9354E*0236 3.9602E*01-1 .8839F*02 
3.5419E*01-1.8244E*0238 3. 1507E*01 -1 .7571E*0239 2.7867E*0i-l ,6818E*02 
? . 449B£ ♦01—1* 5992E ♦0241 2. 1397E*01-1.5096E*0242 1 .8564E*01-1 .4141E*02 
1 ,5992£'»01-1 .3138E*0244 1 ,3676E*01-l .2103E*024G 1.3676E*0l-l .2103E *02 
1 . 2396E ♦ 01 -1.1 469E ♦ 0247 1 . 1204E+01-1 .0834E*0248 1 ,0097E*0l-l .0203F*02 
3 • 0724E *00—9. 5822E*0 150 8.1263E*00-8.9761£*0151 7.2549E*00-8.3910 f*01 
• 0 . 0 . 0 # 0 . 0 . 

* 0. 0. 0.0. 0* 

» 0 . 0 . 0 . 0 . 0 . 

> 0 . 0 . 0 . 0 . 0 . 

i 0. 0. 0. 0. 0 • 

i 0# 0. 0* 0. 0. 

. 0 . 0. 0. 0. 0. 

. 0. 0. .9* 0. P • 

. 0 . 0 . 

• 1 738F-0 1 -9. 1646E-0 1 -9.1554E-01 -9.1463E-01 -9.1371F-01 -9.1371F-01 
.1187F-01 -9.1004F-01 -9.0820E-01 -9.0697E-01 -9.0575F-01 -9.0452F-01 
.0248F-01 -9.0043F-01 -8.9839E-01 -8.9635E-01 -8.9430F-01 -8.9226F-01 
,o?26E-01 -8.8940E-01 -8.8654E-01 -8.8368F-01 -8.8082F-01 -8.7796F-01 
•7S10F-01 -8.7183F-01 -8.6857F-01 -8.6530E-01 -8.6162F-01 -R.5794F-01 
•5426F-01 -8.5426E-01 -8.4936E-01 -8.4446E-01 -8.3956F-01 -8.3261F-01 
. 2567F-0 1 -8.1R72F-Q1 -R.1014F-01 -8.0156E-01 -7.9298F-01 -7.7787E-01 
.6275F-01 -7.4764E-91 -7.4764F-01 -7.2226E-01 -6.9688F-01 -6.7150F-01 
• 2367F-0 1 -S.7S83E-01 -5.2R00E-01 

N = 1 PREBUCKLING DATA FOLLOWS 
9 . 6960E*0? 6-2.8669E*00 

2.5960E*01 8.3218E*01 2 2.6487E*01 7.3945E*01 3 2.68Q0F*0l 6.5241E*01 

2.6927E*01 5.7125E *01 5 2.6895E*01 4.9598E+01 6 2.6892E*0l 4.9597E*01 

2.6395E*01 3.5466E*01 8 2.5468E*01 2.3783E*01 9 2.4259E*01 1.4281E+01 

2.2880E*01 6.6659£*0011 2.1412E+01 6.4427E-0112 1.9916E*01-4.0553E*00 

1.8433E*0l-7.6752E*00l4 1 .6992E + 01-1 .0426E*01 15 1.5611F*0l-l .2484£*0l 
1.4301E+01-1 .3999E*01 17 1 .3067E*01-1 ,5089E*0118 1 .191 1F*01-1 ,5853E*0 1 
1.1911E*01-l .5853E*01 20 1 ,0833E*01-1 ,6365E*012l 9.8300E*00-1 .6685E*0 1 
8.8986E*00-1.6857E*0123 8.0351E+00-1 ,6913E*0124 7.2352E*00-1 .6877E*01 
6.4948E ♦00-1 »6764E*0126 5.8102E*00-1.6585E*0127 5.1775E*00-1 .6343E«-0l 
4.5936E*OO-1.6043E*O129 4.0555E*OO-1 .5684E>0130 3.5604F*00-1 .5264E*01 
3.10 60E*00-1.4782E *0132 3. 1060E+00-1 .4782E*0133 2.6903E*00-1 ,4235F*0l 
2.3115E*00-1 .3624E *0135 1 ,9677E*00-1 .2948E*0136 1 .6577E *00-1 .221 OF ♦ 0 1 
1.3798E *00-1.1 41 3E*01 38 1 . 1 327E*00-1 . 0565E*01 39 9.1496E-01-9.6737F+00 
7.2513E-0l-8.7524E*0041 5.6161E-01-7.8156E*0042 4.2265F-01-6.8816F*00 
3.0636E-01-5.9721E*0044 2 . 1057E-0 1-5. 1 1 16E*004S 2. 1 057F-0 1 -5 . 1 1 16F+00 
1.6162E-01-4.6267E*0047 1 . 1 873E-01-4. 1763E*004« 8.1291E-02-3.7672F*00 
4.R654E-02-3.4060E*0050 2.0144E-02-3.0992E*005l-4,.9398F-03-2.8530F*00 
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2.5025E*01 

2.5706E*01 

2.6154E*0i 

2.6401E*01 

2.6474E*01 

2*6472 

2.6158F*01 

2.5366E+01 

2.4255E>01 

2.2945E+01 

2.1525E+01 

2.0060 

1.8596E+01 

l.7164E*01 

1.5784E+01 

1 ,4470E*01 

l.3229E*01 

1.206' 

1.2063E+01 

1.0972E*01 

9.9548E+00 

9.0085E*00 

8.1294F*00 

7.3131 

6.5576E+00 

5.8573E+00 

5.2094E*00 

4,6107E*00 

4.0583E+00 

3.5491 

3.0826E+00 

3.0826E*00 

2.6551E»00 

2.2654E*00 

1.9120F+00 

1.5932 

1.3080F+00 

1.0548E*00 

8.3231E-01 

6. 390 OE— 01 

4.7333E-01 

3.3354 

2.1769E-01 

1.2357E-01 

1.2357E-01 

7.6175E-02 

3.5227F-02 

8.5751 

-2. 9926F-02 
-6.8750E-02 

-5.5521F-02 

-6.9055E-02 

-7.7443E-02 

-6.9360E-02 

-6.9665E-02 

-6.9970F-02 

-* .9970 

-7.0583F-02 

-7.1197F-02 

-7.1810E-02 

-7.2220E-02 

-7.2630E-02 

-7.3040 

-7.3450^-02 

-7.3860F-02 

-7.4270E-02 

-7.4680E-02 

-7.5090F-02 

-7.5500 

-7.5500^-02 

-7.5910F-02 

-7.6320E-02 

-7.6730E-02 

-7.7140F-02 

-7.755C 

-7.7960F-02 

-7.7960F-02 

-7.7960F-02 

-7.7960E-02 

-7.8373F-02 

-7.8781 

-7.9200F-02 

-7.9200F-02 

-7.9200E-02 

-7.9200E-02 

-7.9200E-02 

-7.8791 

-7.8393F-02 

-7.7990F-02 

-7.7587E-02 

-7.7183E-02 

-7.6780F-02 

-7.4741 

-7.2713F-02 

-7.0680F-02 

-7.O68OE-02 

-6.1620E-02 

-5.2560F-02 

-4. 3500 


-2. 9000F-02 -1.4500F-02 -0. 
STOP 

END OF FILE CARD 
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SKA 101 OUTPUT DATA LISTING 
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c crcoeooeoc 0000000 

till t I ll ll I I fill I 

U U a U' a U U a U lx, Ll Ui li lt U Ll U- 

ooc cr o o o o c e c c. c c e cr e 

c O C_ C C C" C C: c c c O- C 0 0 0 0 

(vtvcvtvtvtvtvtvtvfvtvfvtvtvfvfvtv 
p-p-p-p-p-p-p-p- p~ p- p- p- p- p- p- p- p- 


C C O G c. o c c. o o c c e © o o o 

I I I I I I 1 I I I I I I I I I I 

U U- U U Ll lu U U a a' U U u. L L. u. L 

C © C O C © o O C © C © C C C C c 

•© C L.- ©COO C © C CO c. c c © o 

tv tv tv tv tv tv cv rv tv tv rv rv tv tv tv rv tv 

p~ p- p- p- p- r- p- n r- f* p- p> p- p- r- p- p- 


■© c c © c © e © © © c © c © © © c 

I I I I I I I I I « I l I I I I I 

Ui lLlLU L.L.L IlU ll U. Il IL U. U L. (L 

© e © c e © © e e c © © © c © © c 

© © c. ©< O C COCO C © C C C O Ci 

tv (V tv tv tv tv tv tv tv tv (V tv 0.1 tv (V (V tv 

p-r^f^t^>^p-p‘p“p-r*-p-p-r^p^p-^p' 


4 4 4 4 4 ^^44^4 4 4 4 4444444.14444 4 4 4 4 4 4 4 


c © c c c © c o c c o c. c- © C .© c 

I I I I I I I I I I I I III I 1 

LL.' II. 'Ll. Ll. a U U Ll U U. U (l ll IL U. U. U. 

rvtvtvtvtvtv tvtvtvtvfvcvtvtvtv'tvfv 
c o © c c c © c o c c © ©. © c e c 

tv tv tv i\ tv cv tv tv tv tv tv. tv tv tv tv tv tv 

4444444 4 444 4 4 4 4 4 4 


© C O o Ci o c- c c c o COCO e c 

i « i i i i i i i i i i i i i i i 

a a ui U' a a- a a a a a a a a a a a 

tvtvtv tvtvtvrvtvtvtvtvrv tv tv tv tv tv 

© C C OC O C C O ©oo© o o o o 

tv cu tv tv tv tv tv cv tv cv tv cv tv tv tv tv tv 

4 4 4 44 4 4 44 444 4 4 4 4 4 


O C O C CO C © © O' C V - c © c- c c 

I I I I I I I III! I I I I 1 I 

a a a* a a. a a- a a u a a u a a a a 

tv tv tv tv tv tv tv tv tv tv tv cv tv rv tv tv tv 

©CO © ©. © C O C O C o o ©• © © © 

tv tv a* cv tv tv tv tv tv tv tv tv tv tv rv tv tv 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 


r-r r ,r.ft r pi r r~, r r, r> r r* r* r r r. r tr r r r. r r; r r r r r: r r r r rv or r r r r r r r r c r r r r r 


c o C r c C croc c. o o o O ce- 
ll II I t It I I I II I < II 

a a a a a a a a a a u a a a a a a 

o c c o rt o c c rr o c* y r? c o a o 

a vC a vt 4 si a 4 »i 4 < 444 X 4 sr 

tr o o ct o a cp a c c o* cr c cpo 1 !?■ cp 
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SPA 200 INPUT DATA LISTING 


3ND CLOSED BRANCH TEST CASE 


1 1 

1 1 

1 1 1 

1 

2 


1.0 

1 

.-2 


GEOMETRY 

table 

FOLLOWS 






1 

0. 


10. 


-.70711 

,70711 

.05 

1 

9 

2. 


8.58578 


-.70711 

.70711 

.05 


10 

2. 


10, 


-.70711 

.70711 

.05 

? 

14 

3. 


9.29289 


-. 70711 

.70711 

.05 


15 

3. 


10. 


-.70711 

-.70711 

.05 

2 

19 

4. 


9.29289 


-.70711 

-.70711 

.05 


20 

4. 


9.29289 


-.70711 

-.70711 

.05 

1 

24 

5. 


8.58578 


-.70711 

-.70711 

.05 


25 

5. 


8.58578 


0. 

-1. 

.05 

1 

29 

6. 


8.58578 


0, 

-1. 

.05 

1 

30 

6. 


8.58578 


-.70711 

-. 70711 

.05 


38 

8. 


7.17156 


-.70711 

-.70711 

.05 


39 

8, 


7.17156 


+.70711 

-.70711 

.05 

3 

47 

10. 


8.58578 


+.70711 

-.70711 

.05 


48 

10* 


8.58578 


0. 

1. 

.05 

3 

52 

11. 


8.58578 


0. 

1 . 

.05 


53 

11. 


10. 


-.70711 

.70711 

.05 

4 

57 

12. 


9.29289 


-.70711 

.70711 

.05 


58 

12. 


10. 


-.70711 

-.70711 

.05 

4 

62 

13. 


9.29289 


-.70711 

-.70711 

.05 


63 

13. 


9.29289 


-.70711 

+.70711 

.05 

3 

67 

14. 


8.58578 


-.70711 

+.70711 

.05 

1 

68 

14, 


8.58578 


+.70711 

+.70711 

.05 

2 

76 

16. 


10. 


+.70711 

+.70711 

.05 


WALL 

. PROPERTIES 

TABLE FOLLOWS 



1 

1 


1 . ♦7 

1. 

♦ 7 

.4+7 .25 

.05 


76 


1 .+7 

1. 

♦7 

.4 + 7 

’ .25 

.05 


C MECHANICAL loads table follows 


6 1 - 100 . 

9 - 100 . 

10 

29 

30 -100. 

47 -100. 

48 

67 

68 - 100 . 

76 -100, 

9 


180 



BOUNDARY DATA FOLLOWS 


1.2 + 7 

1 . + 6 

1 # + 6 

.675+6 .05 

.1 

1.2*7 

1 • +6 

1 .2 + 7 
1 . +6 

.675+6 .05 

.1 


1.2 + 7 


1. 

0. 

1. 


0 . 

1 . 

0 . 


END OF FILE 

CARD 
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UbLt b (MECHANICAL LOAUi) 
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bounuany number 1" ' $ * <5.h*00 

1 HIS ts The first point OF a CLOSED BRANCH - SEE boundary number 13 FOR BOUNDARY data 
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SPA 20 1 INPUT DATA LISTING 
->NP CLOSED ROAMCH TFST CASF 



i i i 

1 1 

i i i 

1 ? 

1 

48.8 

1 

1.-2 

c 


C-FOMFTPY TARLF 

FOLLOWS 




1 


1 

0, 


10. 

-.70711 

.70711 

.05 



9 

2. 


8.58578 

-.70711 

.70711 

.05 



1* 

?. 


10. 

-.70711 

.70711 

.05 


7 

1 A 

3. 


9.29289 

-.70711 

.70711 

.03 



IS 

3. 


1 0 . 

-.70711 

-.70711 

.05 


7 

1 9 

4. 


9 . ?92°9 

-.70711 

-.70711 

.03 



?n 

4. 


9.79279 

-.7071 1 

-.70711 

.03 


\ 

24 

S. 


8,88578 

-.70711 

-.70711 

.05 



R5 

5. 


3.38578 

0. 

-1 . 

.05 


1 

?9 

3. 


B. 38578 

0. 

-1 . 

.03 


1 

30 

s. 


8.58573 

-.70711 

-.70711 

.03 



33 

B. 


7.17156 

-.70711 

-.70711 

.05 



39 

B. 


7. 17186 

*.70711 

-.70711 

.03 


3 

47 

l n . 


8 .8B570 

♦.70711 

-.70711 

.03 



4» 

in. 


8. 58578 

0 • 

1 • 

.03 


3 

s? 

11. 


3.38578 

0 . 

1 . 

.03 



S3 

11. 


1C. 

-.70711 

.70711 

.03 


4 

S7 

1 P. 


9.29239 

-.70711 

.70711 

.05 



S8 

17. 


10. 

-.70711 

-.70711 

.05 


4 

62 

13. 


9.29239 

-.70711 

-.70711 

.03 



S3 

r». 


9.29289 

-.70711 

♦ .70711 

.05 


7 

67 

14. 


3.53573 

-.70711 

♦.70711 

.03 


1 

SB 

14. 


3.58578 

+.70711 

+.70711 

.05 



76 

13. 


10. 

♦.70711 

+.70711 

.03 

c 


WALL 

ppfiDF p t TPS 

iahlf follows 



p 

1 

1 


1 . +7 

1 • *7 

.4*7 

.25 

.05 



7 S 


I . +7 

1 .+7 

.4*7 

.28 

.05 

r 


MPruAKiiCM. 

LOAD 

3 TARLF FOLLOWS 



b 


j 




- 100 . 





9 

i ° 




-100. 
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PQ 













-10 0. 





47 




- 100 . 





4^ 









A7 













-ion. 





lb 




- 100 , 
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STANDARD POEPUCKLIMG DATA FOLLOWS 


.ooocf+oo-o 

•9. 66465+0112-0. 66415+01 

•9.91295 + 01 1 . 37635 + 02 ?-9.894?F*0l 7.7724F+01 7-1 . 0 1 05F+02-F . 03705 +0 1 
•1 .O078F+02-1 .75225+02 5-9 . 85625+0 1-2.49775 + 02 6-9 . 54775 *0 1 -2 .5 1 8ftF *02 
■9.29415+01-1 .86325+02 8-9 . 20365 + 0 1 -8 . 87055+ 0 1 9-9 . 28505+0 1-3 . 1 2665 * 0 1 
O.F*00 -2.55875+0011 4.41 325-02-2.34335+001 2 8. 56405-02-2. 0«59E+00 

1.2286F-01-1.69765+0014 1 .51 7 15-0 1 -1 . 02775 +001 5 0.5+00 1 .58875 + 00 

•2.7628F-03 i .03275+0017-3.76045-02 4. 35475-0 1 1 «-4 . 02445-02-2 .4666F-0 I 
•2.8737F-02-1.072PE+C020 1 . 22985-0 1-1 . 0 3485 + 0021 1 . 56385-0 1 -2 . 26255 +40 
2.2070F-01 -3.99865+0023 3 . 2594E-0 1 -6 . 0 1 47E *0024 4.76865-01-7.93465*00 
0.5*00 1 .9554F *0026 O.F+00 -5.60355-0127 O.F+OO -3.10665*00 

0.5*04 —5.67065 *0029 0 . F ♦ 0 0 -8. 05385 *0030-7.90445 ♦01-2.78 155 + 0 1 

•P. 05395 + 01 ? .7999F + 01 32-6 .400 2F *0 1 1 . 351 OE +0233-8 . 98355+4 1 2.20105+02 
•9.71 2? F + 01 2 . 35745 +4235-1 .0409F + 02 1 .62575+0236-1 .00715+02 1.32185+01 
•1 . 0953F ♦02-i .504<'E + 0 23P-1 . 06P «E ♦02-2. 5457F + 0239-1 .06805 +02-2. 54575+0? 
•1 . 0959F ♦02-1 .604 15+0241-1 ,48725+02 1 .3214F + 0142-1 .04095+02 1 .62575+0? 


•9.71 2?f*01 9.357 ''F ♦ 0244-8 . 90365 + 0 1 2. 20 105 ♦ 024^-8 .4002F+0 1 1.3510F+0? 
•® . 0540F *0 1 ?, 800 IF + 01 47-7 . 90455 ♦ 0 1 -2.78155 ♦014® O.F+OO 1.95525+00 

O.F*no -5.6044F-01F0 O.F+QO -3, 1 0665 ♦0051 0.5+00 -5.6704E+00 

0.f*00. -O.0535F +0059 0.F+*0 1 .50865+0054-2.36265-0? 1.03265+00 

•3. 74 f"' IE-0? 4. 354 2F-0 1 56-4. 0 24 1 E-02-2. 4689E-0 157-2. 8734F-02-1 .07285+00 
O.F*"Q -2.55 86E + 0059 4.4 1M F-02-2 . 3432E + 0060 8 .56395-02-2 . 00595 + 00 

1.2285F-01-1 .69765+0062 1 .5 1 715-0 1-1 . 0277F +0063 l .22985-01-1 .03485 + 00 
1 .^6 3=>F-01 -?.?a?9F + 0045 2.2069E-01-3.99P5E + 0046 3 . 2594F-0 1 -6 . 0 1 44F + 00 
4.768FF-01 -7.9342F +0048-9. 289 0E+ 01-3. 1266E* 01 69-9. 20 36F+01-P.P705E+ 01 
•9. 294 IF + 01-1 .8632F + 0271-9. 547 7E + 0 1-2.51 885+ 0272-9 .8552E + 0 1 -2 .49775 + 02 
• 1. 00 79F ♦O?-! .7522E + 0274-1 .01^55 + 02-5. 0377E +01 79-9.P942F+01 7. 772 IE *01 
•8.9125F + 0] 1 , 3 7 6 3 F + 0 2 


1. 94605-03 -1.95S2E-03 
-1.4978E-05 -1.8698F-C5 
-3 .48895—05 -3. 96315-05 
-9.51215-05 -7.38375-05 
-7.3837F-05 r 7 .3837F-05 
-5.34715-03 -7.55575-03 


i. ?48 Ff_o« 
k»651 75-03 
». PS43F-05 
► . 7 29 IF- 05 
'.6272F-05 
►.49815-03 
'.4659F-03 
. F8?6F_o 3 
* .6721 9-05 
I.4 8PQF -05 
’ . F 54 1 F — 05 
' . "sp 3 1 F -05 


4.19415-03 
-4 .59355-03 
-4.72515-05 
-4.7?91F-05 
-«.6725F-05 
4.71325-03 
-5.98195-08 

-9. 23625-03 

8. «1 725-05 
3 • 96305-05 
4. 7249F-05 
7.38315-05 


7.51 905-03 
-7.38375 -05 
-3.23445-05 
-7.95135-05 
-8.81775-05 
2. 2362F-03 
-5.981 7F-08 
-4.713?F-o3 
8.66705-05 
4.72895-05 
4.72495-05 
4.59365-03 


5 . 59275-03 
-1.43865-05 
-3.27995-05 
-9.30765-05 
-8.68765-05 
-1 .58265-03 
6.46595-03 
-4.43815-03 
7 . 383 IE-05 
1.43855-05 
7.65105-05 
4.65185-03 
-8.26165-08 


7.5557F-03 
7. 3 83 IF -05 
3.23435-05 
1.49775-05 

0. 3 0725- 05 

1 . Q553F-03 


5. 34715-03 
8. 62685-05 
3.27985-05 
1.86975-05 
9.91 155-05 
-1 .9467F-G3 


7,5191 F-0 3 -6 • 1 9425-0 3 
9.64345+01 12-Q.6473F +01 


9.511 45+0! 1.40625*02 2-9.PQ78F+01 8.0253F+01 3- l . 0 1 1 2F+ 02-4 .8961 F *0 1 
1 .O087F+02-1 .75245+02 5-9 . 86285 ♦ 01 -2. C 1 035 +02 6-9. 55255+ 01 -2,53655 +02 
9.2O57F+01-1 .87665+02 9-9.24355+01-8.91 365+01 Q-9. 28465+ 01 -3. 12475+01 
0.6*00 -2.54175+4011 4.381 4F-02-2. 32495 +001 3 8 .4968F -02-2 . 0663F +00 

1 ,21805-01-1 ,67765+4014 1 .50275-0 1-1 .00935 +00 1 6 O.E+OO 1.58875+00 

. 267 ^F- 02 1 .4373F+00 ] 7-3 . 7774F -0 ? 4 .44815-0 1 1 8-4 . 06365-02-2 . 3256F-0 1 


.q449F-0P-l . 05425 + 00 20 1 . 20 8 25 - 0 1 - 1 . 4 1 675 + 0 0 2 1. 1 .53785-01-2.23945 + 00 
. i 754F— 01— 3.97115 + 0 02? 3. 2? 16F-0 1-5,98735 +0024 4 . 7?52F -0 1 -7 . 9 1 77F + 0 0 
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25 0.F*00 1.99722*0026 O.E+OO -5. 17922-01 27 0.2*00 -3.0651E 
?H 0.p* 00 -5.63512*0029 0.2*00 -8.0358E*0030-7 .90982*0 1-? ,7ft 1 Of 
31-P.0598c.oi 2.8389F+01 32-B.4079F*01 1 .36412*0233-8. 9951E+C 1 2.2199E 
34-9.7?80F*01 2. 372 rt E ♦0235-1 .04272*02 1 ,6272E*023*-1 .08882*02 1.1549E 
37-1,09642*02-1 .637 n E*0238-l .0682F*02-2.5870E*023Q-1 ,068 ?f-* 02-2.5870F 
40-1.09*42+08-1 .63702 *0241-1 ,0P«8E*02 1.15492*0142-1.04272*02 1 .6272f 
43-9.727RP *01 2.37212*0244-8.99492*01 2. 2200E *024^-8 .4077F *0 1 1.3641F 
46-8 . 0595F *01 ? . 8386F *0 1 47-7 .90962 *0 1 -2 .781 4F *0 148 0.F*00 1 .9978F 
49 0 . F + 0 0 -5.1 84 7F -0150 O.f+OQ -3.0667E+0051 0.E*00 -8.6377E 
5? 0 .F *00 -8.0394E + 0053 D.F*0O 1 .5894E *0054-2 . 3679F-02 1.0377E 
55-3 . 7789F-0? 4. 4493F-0 1 56-4 . 065 1 F-02-2 . 3277E-0 157-2. 9456F-02-1 . 0548E 
FH 0.F*00 -2.5429E*00S9 4 . 3835E-02-2 . 3260E *0060 8. 50092-02-2. 0673E 
M 1 .3186F-01-1 .6785F*0062 1 .5034E-01-1 .00992*0068 1 . 2089F-0 1 - 1 , 0 1 72E 
64 1 .53«6F-01-?.?405F*0065 2. 1766F-01-3.9730E*0046 3 .2232F-0 1 -5 . 990 IF 
67 4, 72752-0 1-7.92 122*0068-9. 28482 *01-3, I 2512*0 169-9. 20372 *01-8,91392 
70-8.3959F*01-l . 87662*0271 -9. 55272 *01 -2 .53642 *0272-9. 8630F *01 -2. 5 1022 
7 3-1 .0087F + 02-1 .75242*0274-1 . 0 1 1 2F *02-4.89602 *01 78-9.89792 *0 1 8.0255E 


76-9.51 1 1 F * 0 1 

1 .40622*02 





5.6423F-08 

6. 2636F-03 

7.62282-03 

5.68572-03 

1.99762-03 

-1 .9539F 

-4.*-P?7^-03 

-4.6245F-03 

-7.47252-05 

-1 .44482-05 

-1 .50372-05 

— 1 .87312 

-P.R^COF-OS 

-4.70582-05 

-3.20922-05 

-3.25462-05 

-3.46392-05 

-3.9396F 

-4 .70582—05 

-4.7058F-05 

-7.52682-05 

-9.29642-05 

-9.53692-05 

-7.4725E 

-8.6247^-05 

-R.6715F-85 

-8.82682-05 

-8.72392-05 

-7.47252-05 

-7.47252 

4.46478-03 

4.74272-03 

2.23862-03 

-1.6270F-03 

-5.43632-03 

-7.6613F 

-6.8407F -03 

-5.591 82-08 

-5.591 52-08 

6. 54012-03 

7.66112-03 

5.43612 

1 .62698-03 

-7.23862-03 

-4 . 7427E-03 

-4.46472-03 

7. 4750F-05 

8.62P5F 

P ,678?r -OS 

8 .83052 -05 

8.72742-05 

7.47502-05 

3.21082-05 

3.2561F 

3.4655F-05 

3.94142-05 

4.70802-05 

1.44532-05 

1.50432-05 

1 .8738F 

2.851 3 F-05 

4.70802-05 

4.70802-05 

7.5302F-05 

9.30052-05 

9.5408E 

7.4750F-05 

7.475OF-05 

4.62452-03 

4.68262-03 

1.95382-03 

-1 .9977F 

-5 .6 85 82— 03 

-7.62282-03 

-6.26362-03 

5.84952-08 




C onUN'DAPY DATA FOLLOWS 


1.2*7 1 .*6 

1 .*6 

.675*6 

.05 

.1 

1 .2*7 



1.2*7 1 , *6 

1 .*6 

.675*6 

.05 

. 1 

1 .2*7 
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SRA 201 OUTPUT OAT A LISTING 
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QL 
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o o 
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I-* K 
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UJ 
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•a in 


_j 
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UJ 
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QC 

•-« < 



x 
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* UJ 

UJ 


>- a 

in 


z 

< 

41 

< * 

o 


o 


UJ 

a z 

H- 

o 


«n 

o 

«j 

UJ 

X 

* v: 

*- 


o o 



Z 3 

X 

in 

*-» © 

u 

UJ 

Q 

z 

X 

< O 

«* 

o 

o z 

a 

»-< 

-J *- 

ai 

X 

a 



UJ 3 

o 

*vi 

u c 

UJ 


< 

in 


u. » 

o 

II 

a a 

-j 


3 Z 

o 

z 
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CRITICAL kahhoMC * d 

critical LOAh = 4*99ot + oT 
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boundary number i ? s = i,4ugyE*oi 



BOUNDARY NUMBER 13 S = 1.6U00E+01 
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AXISYMMETWIC COMPONENT OF SEC.Or\ D*"OhQfcR conthibution to buckled state 
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SRA 300 INPUT DATA LISTING 
3ND CLOSED BRANCH TEST CASE 

111111111 2 1 1.7*4 1.-2 

C GEOMETRY TABLE FOLLOWS 


1 


l 

0 . 


10. 

-.70711 

.70711 

.05 


1 

9 

2. 


8.58578 

-.70711 

.70711 

.05 



10 

2. 


10. 

-.70711 

.70711 

.05 


2 

14 

3. 


9.29289 

-.70711 

.70711 

.05 



15 

3. 


10. 

-.70711 

-.70711 

.05 


2 

19 

4. 


9.29289 

-.70711 

-.70711 

.05 



20 

4. 


9.29289 

-.70711 

-.70711 

.05 


1 

24 

5. 


8.58578 

-.70711 

-.70711 

.05 



25 

5. 


8.58578 

0. 

-1. 

.05 


1 

29 

6. 


8.58578 

0. 

-1. 

.05 


1 

30 

6. 


8.58578 

-.70711 

-.70711 

.05 



38 

8. 


7.17156 

-.70711 

-.70711 

.05 



39 

8. 


7.17156 

♦.70711 

-.70711 

.05 


3 

47 

10. 


8.58578 

♦.70711 

-.70711 

.05 



48 

10. 


8.58578 

0. 

1 • 

.05 


3 

52 

11. 


8.58578 

0. 

1. 

.05 



53 

11. 


10. 

-.70711 

.70711 

.05 


4 

57 

12. 


9.29289 

-.70711 

.70711 

.05 



58 

12. 


10. 

-.70711 

-.70711 

.05 


4 

62 

13. 


9.29289 

-.70711 

-.70711 

.05 



63 

13. 


9.29289 

-.70711 

♦.70711 

.05 


3 

67 

14. 


8.58578 

-.70711 

♦.70711 

.05 


i 

68 

14. 


8.58578 

♦.70711 

♦.70711 

.05 



76 

16. 


10. 

♦.70711 

♦ .70711 

.05 

c 


WALL 

PROPERTIES 

TABLE FOLLOWS 



? 

i 

1 


1 • + 7 

1 •■♦7 

.4*7 

.25 

.05 



76 


1 • *7 

1 • *7 

.4*7 

.25 

.05 

c 


MASS 

. DENSITY TABLE FOLLOWS 




5 


1 

.1 








76 

.1 






C 


MECHANICAL 

LOADS 

TABLE FOLLOWS 



6 


1 




-100. 





9 




-100. 





10 









29 









30 




-100. 





47 




-100. 
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loo 

loo 


48 

67 

68 
76 


STANDARD PREBUCKLING DATA FOLLOWS 
00005*00-0 

.66465*0112-9.66415*01 

'•51255*01 1 • 3763E+02 2-9.89425*01 7.77245*01 3-1 .01055+02-5. 0370E+01 
.00785*02-1.75225*02 5-9. 85525+01-2. 4977E+0? 6-9. 54775*01-2. 51885*02 
'.2941 5*0 l-l .8632E+02 8-9.20365*01-8.87055*01 9-9.28505*01-3.12665+01 

• 5*00 -2.55875*001 1 4.41325-02-2.34335*001 2 8.56405-02-2.08595*00 

.22865-01-1 .69765*0014 1.51715-01-1.02775+0015 0.5*00 1.58875*00 

.36285-0? 1 .03275+0017-3.76045-02 4. 3547E-01 18-4.02445-02-2.46665-01 
.87375-02-1.07285+0020 1 .2298E-01-1.0348E+0021 1 .56385-01 -2. 2625E+00 
•20705-01 -3* 9986E *00 23 3.25945-01-6.01475*0024 4.76865-01-7.93465+00 
.5 *00 1.9554E+0026 0.5*00 -5.6035E-0127 0.5*00 -3.10665*00 

• • C ♦ 0 0 -5.6706E+0029 0.5*00 -8. 05385*0030-7. 90445*01-2. 7815E+01 

1 • 05395 + 01 2.79995+0132-8.40025*01 1 .35105*0233-8.98355*01 2.20105*02 
1.71225*01 2.35705*0235-1 .04O9E+O2 1 .62575*0236-1 .0871F+02 1.32185*01 
.09535*02-1 .6040E+0238-1 .06805 *02-2 .54575 *0239-1 .06805 +02-2.54575*02 
.09535 *02-1* 6041E+0241-1.08725 *02 1 .3214E+0142-1 .0409E*02 1.6257E+02 
I.7122F *01 2.35705*0244-8.98365*01 2. 20105*0245-8. 40025*01 1.3510E*02 
1.05405*01 2.80015 *0 1 47-7 • 90455 *0 1-2. 78 15E *0148 0,E*00 1.9552E*00 

.5*00 -5.60445-0150 0.5*00 -3. 1066E*005! 0.5*00 -5.6704E*00 

.5*00 -8.0535E*0053 0.5*00 1.5886E+0054-2. 36265-02 1.0326E*00 

i. 76015-02 4. 3542F-0 156-4. 024 15-02-2. 4669E-0 157-2. 87345-02-1.07285*00 
'.5*00 -2.55865*0059 4. 41315-02-2. 34325*0060 8. 56385-02-2. 0859E*00 

.2285E-01-1 .6976E*0062 1 .51715-01-1 .02775+0063 1 .22985-01-1 .0348E*00 
.56385-01-2.26255*0065 2.20695-01-3.99855*0066 3.25945-01-6.01445+00 
». 76855-01 -7. 93425+0068-9. 2850E *01-3. 12665*0 169-9. 20365*0 1-8. 87055+01 
1.2941 5*0 1-1. 8632E+027 1-9. 54775 *01-2. 51885*0272-9. 85525+0 1-2. 49775 *02 
.0078E+02-1.7523E+0274-1. 01055*02-5. 03775*0175-9. 89425*01 7.77215*01 
1.51255*01 1.37635+02 

,26855-08 6.19415-03 7.51905-03 5.59275-03 1.94685-03 -1.95525-03 

65175-03 -4.5935E-03 -7.38375-05 -1.43865-05 -1.49785-05 -1.86985-05 

8542F-05 -4.72515-05 -3.23445-05 -3.2799E-05 -3.48895-05 -3.96315-05 

72515-05 -4.72515-05 -7.55135-05 -9.30765-05 -9.51215-05 -7.38375-05 

,62725-05 -8.67255-05 -8.81775-05 -8.68765-05 -7.38375-05 -7.38375-05 

,43815-03 4.71325-03 2.23625-03 -1.58265-03 -5.34715-03 -7.55575-03 

.4659E-03 -5.98195-08 -5.98175-08 6.46595-03 7.55575-03 5.3471E-03 

,58265-03 -2.23625-03 -4.7132E-03 -4.4381E-03 7.38315-05 8.62685-05 

,67215-05 8.81725-05 8.68705-05 7.3e315-05 3.23435-05 3.2798E-05 

,48885-05 3.96305-05 4.7249E-05 1.43855-05 1.49775-05 1.86975-05 

,85415-05 4.72495-05 4.72495-05 7.5510E-05 9.30725-05 9.51155-05 

,38315-05 7.38315-05 4.5936E-03 4.65185-03 1.95535-03 -1.94675-03 

,59265-03 -7.51915-03 -6.19425-03 -8.26165-08 

). 64305*0 11 2-9. 6473E+01 

>.51105*01 1.40625*02 2-9.89785*01 8.02535+01 3-1 .0 1 12E+02-4 .896 15 *0 1 
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4-1 ,0087E*02-1 .7524E*02 5-9.8628E*01-2.5103E*02 6-9. 5525E*01-2. 53651 
7-9. 2957E *01-1. 8766E*02 8-9.2035E*01-8.9136E*01 9-9. 2846E*0l-3. 12471 
10 0.E*00 -2.5417E*0011 4.3814E-02-2.3249E*0012 8.4968E-02-2.06631 

|3 1.2180E-01-1 ,6776E*0014 1 .5027E-01-1 ,0093E*0015 0.E*00 1.58871 

16-2.3670E-02 1 .0373E+0017-3.7774E-02 4.4481E-01 18-4. 0636E-02-2. 32561 
19-2.9449E-02-1 »0542E*0020 1 .2082E-01-1 .0167E*0021 1 .5378E-01-2.23941 
22 2.1 754E -0 1 -3 . 97 1 1 F ♦ 0 0 2 3 3 . 2216E -0 1 -5 . 98 7 3E ♦ 0 0 24 4 . 7 252E -0 1 -7 .91771 
25 G.F*00 1 .9972E*0026 0.E*00 -5. 1792E-0127 0,E*00 -3.06511 

28 O.F*00 -5.6351E*0029 0.E*00 -8.O358E*0O3O-7.9O98E*Ol-2.781Of 

31-8 ,0598E*01 2.8389E*0132-8.4079E*01 1 .3641E*0233-8.9951E*01 2.21991 
34-9.7280E*0l 2. 3720E*0235-1 .0427E*02 1 .6272E*0236-1 .0888F*02 1.15491 
37-1 . 0964F*02-1 .6370E*0238-1 .0682E*02-2.5870E*0239-1 ,0682E*02-2. 58701 
40-1 . 0964F*02-1 .6370F*0241 -1 ,08P8E*02 1 . 1549E*0 142-1 .0427F*02 1.62721 
43-9.7278E+01 2.3721E*0244-8.9949E*01 2.2200E*0245-8.4077E*01 1.36411 
46-8 . 0595E*0 1 2.8386F*0147-7.9096E*01-2.7814E*0148 0.E*00 1.99781 

49 0 . E ♦ 0 0 -5.1847E-0150 O.E*OQ -3.0667E*005l 0.E*00 -5.63771 

52 0.F*00 -9.0394F*0053 0.E*00 1 .5894E ♦0054-2. 3679E-02 1.03771 

55-3 . 7789E-02 4. 4493E-0 156-4. 0651 F-02-2. 3277E-0 157-2. 9456E-02-1 .05481 
58 0 .F+00 -2.5429E*0059 4.3835E-02-2.3260E*0060 8.5009F-G2-2. 06731 

61 1.2186F-01-1.6785E*0062 1 .5034F-0 1-1 . 0099E+0063 1 .2089F-01-1 .01721 
64 1 . 5386F -0 ] -2. 2405E ♦0065 2. 1766F-01-3.9730E*0066 3.2232E-01-5. 99011 
67 4 . 7275E-0 1 -7.921 2E ♦ 0068-9. 284PE + 0 1-3. 1 251F*0169-9.2037F*0 1 -8.91 391 
70-9 .2959F *0l-1.8766E*0271 -9 ,5527E*0 1-2.5364E + 0272-9.8630E *0 1-2 .51 021 
73-1.0087E*0?-l .7524E+ 0274-1 .01 12E*02-4.8960E*0175-9.S979E*01 8.02551 
76-9.51 1 1F*01 1.4062E*02 

5 • 8423F-08 6.2636E-03 7.6228E-03 5.6857E-03 1.9976E-03 -1.95391 

-4 . 6827F-03 -4.6245E-03 -7.4725E-05 -1.4448F-05 -1.5037E-05 -1.87311 

-2.8500F-05 -4.7058E-05 -3.2092E-05 -3.2546E-05 -3.4639E-05 -3.93961 

-4.7058F-05 -4.7058F-05 -7.5268E-05 -9.2964E-05 -9.5369F-05 -7.47251 

-8.6247F-05 -8.6715E-05 -8.8268F-05 -8.7239E-05 -7.4725E-05 -7.47251 
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AXIS OF REVOLUTION 


: The reference surface may be chosen as any convenient 

continuous surface within or near the shell wall. 


FIGURE 1. HYPOTHETICAL BRANCHED SHELL PROFILE 

(WITH FIVE BRANCH POINTS AND ONE CLOSED BRANCH) 




SRA 100 : LINEAR STATIC RESPONSE UNDER ASYMMETRIC LOADS 
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FIGURE 2 . CASE OPTION CARD FOR SRA 100 
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COLUMN 1=1-7, TABLE NO., INDICATES FIRST ENTRY OF TABLE 1 - GEOMETRY 

= 9, INDICATES END OF TABLES (ALWAYS REQUIRED FOR EACH CASE) 2 - WALL PROP. 

3 - FOUND. MOD. 

COLUMN 3 = 8, SYMMETRICAL RESPONSE ABOUT RING; 9, ANTISYMMETRICAL RESPONSE 4 - STRINGER PROP. 

ABOUT RING (TABLE 1, APPLIES ONLY AT EDGE RING BOUNDARIES) 5 - MASS DENSITIES 
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FIGURE 3. INPUT TABLES 
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FIGURE 4. RING DATA 
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FIGURE 5. PRESCRIBED [B], [D] , AND {L} MATRICES 
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SRA 101: BUCKLING OF LINEAR STATES UNDER ASYMMETRIC LOADS 


oor 


I 


c*r 

in 




vO 

co 


St 

co 


co\ 


oo 

CM 


IS 

IS 

I 

SSI 




a 

o" 

CM - 


K. 


»: 

a 

9 

oo" 

> 

vo" 


ix. 



H P 
P M 

p 

O Pm 

CO 

d 

M 

P g 

P 

p 

o 

H 

1! <! 
p 

mWK 

p 

P P 

CO Q 

p 

< Q 

p 

O £ 

CO 

o 

CO O 

p 

p p 

u 

O M 
H P 

* P> 

r— 1 

P o 

2 P 

11 

PM P 




IS 

IS 

ss 


is: 


CO 

p 

M 

U 

p 

PM 

§ 

Pm 

P 

i 

§ 

Jz; 


P 

co 


co 

§ 

M 

I 


CO 

0 
H 
> 

1 

Pm 

S 


co 

p 

w 


p 

i 

Pm 

P 

P 

O 


a 

CO 


p 

**V CO 


p 

CO 

<3 

o co 


d 


s 

M 

> 


PM 

a 



p p 
CO CO 

P P 


P P 
CO CO 

d d 

CO CO 

p p 

o o 

M H 

> > 


PM PM 

§ a 

a a 

a a 

H P 

CO 

O p 
S5 3 
H P 


a 

p 

p 


P WH 
CO CO 

P P W 
P 


P 


P 



m 

P O <tj 

p 

p 

P 

P 

P O 

P CO 

rH 

P 

CJ> 

p 

p 

a 

co 

P P 

P P P 

ii 

It 

II 

il 

II 

II 

II 

II 

II 

II 

II 

II 

li 

n 

ll 

ll 

II 

Si* 

VO 

00 

o 

CM 

vO 

o 

CM 

vO 

00 

CM 

st 


Ov 

p 

vO 

00 


1 


iH 

rH 

i — 1 

CM 

CM 

CM 

CM 

CO 

CO 

Si- 

m 

I*-* 





O U 



P P 

o o 

u o 


o o 
o o 



274 


FIGURE 6. CASE OPTION CARD FOR SRA 101 
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THE A-AXIS IS A LINE OF SYMMETRY IF 

1) B CONSISTS OF ONLY ONE HARMONIC, OR 

2) ALL NONAXISYMMETRIC HARMONICS OF B ARE ODD [f(<j>±ir) - -f(<|>)] 


FIGURE 7 . BUCKLING LOAD INTERACTION PLANE 
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SKA 200: NONLINEAR STATIC RESPONSE UNDER AXISYMMETRIC LOADS 
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FIGURE 9. CASE OPTION CARD FOR SRA 200 
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FIGURE 10. STANDARD PREBUCKLING DATA 

(This data is normally generated by SRA 200) 
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SRA 201: BUCKLING OF NONLINEAR STATES UNDER AXISYMMETRIC LOADS 
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FIGURE 11. CASE OPTION CARD FOR SRA 201 
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SRA 202 : IMPERFECTION, SENSITIVITY OF BUCKLING MODES UNDER AXISYMMETRIC LOADS 
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FIGURE 13.. CASE OPTION CARD FOR SRA 202 


78 =. BLANK, ABORT RUN IF SUBINTERVAL LENGTH CRITERION EXCEEDED; = 1, PRINT DIAGNOSTIC BUT 
CONTINUE EXECUTION IF SUBINTERVAL LENGTH CRITERION EXCEEDED 
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FIGURE ' 14 . „ADDIT3^Ai'PSEBUCKLING DATA 
(This data is normally generated by SRA 200) 
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BUCKLING MODE DATA 



FIGURE 16. SSA 202 DECK SET-UP FOR EVALUATION OF THREE 

BUCKLING MODES BASED UN SAME PREBUCKLING STATE 
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CASE OPTION CARD 






SRA 300: VIBRATIONS ABOUT NONLINEAR STATES UNDER AXISYMMETRIC PRELOADS 
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FIGURE 17. CASE OPTION CARD FOR SRA 300 
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FIGURE 20. HIERARCHY OF SUBPROGRAMS OF SRA 200 
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FIGURE 21. HIERARCHY OF SUBPROGRAMS OF SRA 201 


INTERPOLATE consists of the subroutines SLOPE, SL0PE1 

SL0PE2, SL0PE3 






FIGURE 22. HIERARCHY OF SUBPROGRAMS OF SRA 202 


INTERPOLATE consists of the subroutines SLOPE, 

SLOPE1 

SL0PE3 
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